perl 4.0 patch 1: (combined patch)

[p5sagit/p5-mst-13.2.git] / lib / dumpvar.pl

diff --git a/lib/dumpvar.pl b/lib/dumpvar.pl
index b3fb02b..5427494 100644 (file)
--- a/lib/dumpvar.pl
+++ b/lib/dumpvar.pl
@@ -23,7 +23,7 @@ sub main'dumpvar {
                }
                print ")\n";
            }
-           if ($key ne "_$package" && defined %entry) {
+           if ($key ne "_$package" && $key ne "_DB" && defined %entry) {
                print "\%$key = (\n";
                foreach $key (sort keys(%entry)) {
                    print "  $key\t'",&unctrl($entry{$key}),"'\n";