summaryrefslogtreecommitdiff
path: root/lib/Dumpvalue.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Dumpvalue.pm')
-rw-r--r--lib/Dumpvalue.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Dumpvalue.pm b/lib/Dumpvalue.pm
index 94b6aa6e78..5d3a9dafc2 100644
--- a/lib/Dumpvalue.pm
+++ b/lib/Dumpvalue.pm
@@ -404,7 +404,8 @@ sub dumpvars {
next if @vars && !grep( matchvar($key, $_), @vars );
if ($self->{usageOnly}) {
$self->globUsage(\$val, $key)
- unless $package eq 'Dumpvalue' and $key eq 'stab';
+ if ($package ne 'Dumpvalue' or $key ne 'stab')
+ and ref(\$val) eq 'GLOB';
} else {
$self->dumpglob($package, 0,$key, $val);
}