diff options
Diffstat (limited to 'lib/Dumpvalue.pm')
-rw-r--r-- | lib/Dumpvalue.pm | 3 |
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); } |