From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 6 Mar 2007 10:32:01 +0000 (+0000)
Subject: dumpvar.pl must load re::Tie::Hash::NamedCapture if it wants
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=73f68b39467596f862aade4f4b46d6061aa98bd3;p=p5sagit%2Fp5-mst-13.2.git

dumpvar.pl must load re::Tie::Hash::NamedCapture if it wants
to dump %+ and %-.

p4raw-id: //depot/perl@30483
---

diff --git a/lib/dumpvar.pl b/lib/dumpvar.pl
index 0268cea..d02ebb9 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)