Skip to content

Commit 8dc2f2f

Browse files
committed
Untangle syntax
1 parent aa18a7a commit 8dc2f2f

File tree

1 file changed

+6
-7
lines changed

1 file changed

+6
-7
lines changed

lib/dumpvar.pl

Lines changed: 6 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -486,14 +486,13 @@ sub main::dumpvar {
486486
return if $DB::signal;
487487
next if @vars && !grep( matchvar($key, $_), @vars );
488488
if ($usageOnly) {
489-
# globUsage(\$val, $key)
490-
# if ($package ne 'dumpvar' or $key ne 'stab')
491-
# and ref(\$val) eq 'GLOB';
492-
globUsage(\$val, $key)
493-
if (
494-
($package ne 'dumpvar' or $key ne 'stab')
489+
if (
490+
($package ne 'dumpvar' or $key ne 'stab')
495491
and
496-
(ref(\$val) eq 'GLOB') );
492+
(ref(\$val) eq 'GLOB')
493+
) {
494+
globUsage(\$val, $key)
495+
}
497496
}
498497
else {
499498
dumpglob(0,$key, $val, 0, $m);

0 commit comments

Comments
 (0)