diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-07-05 05:30:30 +0000 |
|---|---|---|
| committer | Charles Bailey <bailey@genetics.upenn.edu> | 1996-07-05 05:30:30 +0000 |
| commit | b2391ea85a67736925638578f361d4f8a433ac07 (patch) | |
| tree | 18751533dd83e7cb770a201b132e4a147c16c284 /lib/dumpvar.pl | |
| parent | 3730ca99e72f3ce32f6c70e2d17478439668ba13 (diff) | |
| download | perl-b2391ea85a67736925638578f361d4f8a433ac07.tar.gz | |
perl 5.003_01: lib/dumpvar.pl
Turn off optional warnings
Eliminate $' to avoid runtime penalty
Diffstat (limited to 'lib/dumpvar.pl')
| -rw-r--r-- | lib/dumpvar.pl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/dumpvar.pl b/lib/dumpvar.pl index 06c0930581..1fa8246da7 100644 --- a/lib/dumpvar.pl +++ b/lib/dumpvar.pl @@ -25,6 +25,7 @@ $subdump = 1; sub main::dumpValue { local %address; + local $^W=0; (print "undef\n"), return unless defined $_[0]; (print &stringify($_[0]), "\n"), return unless ref $_[0]; dumpvar::unwrap($_[0],0); @@ -222,8 +223,8 @@ sub unwrap { sub matchvar { $_[0] eq $_[1] or - ($_[1] =~ /^([!~])(.)/) and - ($1 eq '!') ^ (eval {($_[2] . "::" . $_[0]) =~ /$2$'/}); + ($_[1] =~ /^([!~])(.)([\x00-\xff]*)/) and + ($1 eq '!') ^ (eval {($_[2] . "::" . $_[0]) =~ /$2$3/}); } sub compactDump { @@ -319,7 +320,7 @@ sub findsubs { sub main::dumpvar { my ($package,@vars) = @_; - local(%address,$key,$val); + local(%address,$key,$val,$^W); $package .= "::" unless $package =~ /::$/; *stab = *{"main::"}; while ($package =~ /(\w+?::)/g){ |