diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-03-07 10:33:38 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-03-07 10:33:38 +0000 |
| commit | 66e4e5d58b6f1a43b01a82c3d198f3a5add40b57 (patch) | |
| tree | 5dd1c73d5f2a90419ada9a5416d04443f259011b /lib | |
| parent | 82d8f8347aac1265a123c7171e3613e510568391 (diff) | |
| download | perl-66e4e5d58b6f1a43b01a82c3d198f3a5add40b57.tar.gz | |
Avoid to load the *+ and *- globs too early.
To silence spurious interpolation warnings, merely
create the stash entry for them. Ensure that the
re::Tie::Hash::NamedCapture module is always loaded
when we have created the tied hashes %+ and %-.
Revert change #30483, which is now unnecessary.
p4raw-link: @30483 on //depot/perl: 73f68b39467596f862aade4f4b46d6061aa98bd3
p4raw-id: //depot/perl@30490
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/dumpvar.pl | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/lib/dumpvar.pl b/lib/dumpvar.pl index d02ebb9cce..0268cea8bc 100644 --- a/lib/dumpvar.pl +++ b/lib/dumpvar.pl @@ -377,7 +377,6 @@ sub dumpglob { unwrap(\@entry,3+$off,$m) ; print( (' ' x $off) . ")\n" ); } - if ($key eq '-') { eval { require re::Tie::Hash::NamedCapture } } if ($key ne "main::" && $key ne "DB::" && %entry && ($dumpPackages or $key !~ /::$/) && ($key !~ /^_</ or $dumpDBFiles) |