From 87f071708691c87a02695fac27e77617eb7cdcfb Mon Sep 17 00:00:00 2001 From: Manish Singh Date: Wed, 28 Jul 1999 23:21:11 +0000 Subject: [PATCH] portability nit -Yosh --- ChangeLog | 5 +++++ tools/pdbgen/pdbgen.pl | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index e0343d50af..9bb51013e8 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +Wed Jul 28 16:17:29 PDT 1999 Manish Singh + + * tools/pdbgen/pdbgen.pl: eval "defined $_" -> eval "defined scalar $_" + (portability nit) + Wed Jul 28 15:03:28 PDT 1999 Manish Singh * plug-ins/common/plugin-defs.pl: add sample_colorize and diff --git a/tools/pdbgen/pdbgen.pl b/tools/pdbgen/pdbgen.pl index 536824cc3e..7d58ec775c 100755 --- a/tools/pdbgen/pdbgen.pl +++ b/tools/pdbgen/pdbgen.pl @@ -54,9 +54,9 @@ $evalcode = <<'CODE'; my $dest = shift; foreach (@_) { - if (eval "defined $_") { + if (eval "defined scalar $_") { (my $var = $_) =~ s/^(\W)//; - for ($1) { + for ($1) { /\$/ && do { $$dest->{$var} = $$var ; last; }; /\@/ && do { $$dest->{$var} = [ @$var ]; last; }; /\%/ && do { $$dest->{$var} = { %$var }; last; };