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 (file)
--- 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)