diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-03-06 10:32:01 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-03-06 10:32:01 +0000 |
| commit | 73f68b39467596f862aade4f4b46d6061aa98bd3 (patch) | |
| tree | 0f8eb16c824f8fc74b7b3e54e0f0c27ed20c0415 /lib/dumpvar.pl | |
| parent | 6c0b8e732f4cf9c020efd23b58905fa8c6fbf52a (diff) | |
| download | perl-73f68b39467596f862aade4f4b46d6061aa98bd3.tar.gz | |
dumpvar.pl must load re::Tie::Hash::NamedCapture if it wants
to dump %+ and %-.
p4raw-id: //depot/perl@30483
Diffstat (limited to 'lib/dumpvar.pl')
| -rw-r--r-- | lib/dumpvar.pl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/dumpvar.pl b/lib/dumpvar.pl index 0268cea8bc..d02ebb9cce 100644 --- a/lib/dumpvar.pl +++ b/lib/dumpvar.pl @@ -377,6 +377,7 @@ 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) |