default warnLevel and dieLevel to 0 in debugger (from Tom

Christiansen); make dumpvar.pl safe against non-glob entries
in stashes

p4raw-id: //depot/perl@5818

1 files changed, 3 insertions, 1 deletions

diff --git a/lib/dumpvar.pl b/lib/dumpvar.pl
index c72781801b..4a3041a02b 100644
--- a/lib/dumpvar.pl
+++ b/lib/dumpvar.pl
@@ -361,7 +361,9 @@ sub main::dumpvar {
       return if $DB::signal;
       next if @vars && !grep( matchvar($key, $_), @vars );
       if ($usageOnly) {
-	globUsage(\$val, $key) unless $package eq 'dumpvar' and $key eq 'stab';
+	globUsage(\$val, $key)
+	  if ($package ne 'dumpvar' or $key ne 'stab')
+	     and ref(\$val) eq 'GLOB';
       } else {
 	dumpglob(0,$key, $val);
       }