Skip to content

Commit aa18a7a

Browse files
committed
Add some parens to clarify syntax
1 parent a215f87 commit aa18a7a

File tree

1 file changed

+7
-2
lines changed

1 file changed

+7
-2
lines changed

lib/dumpvar.pl

Lines changed: 7 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -486,9 +486,14 @@ 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';
489492
globUsage(\$val, $key)
490-
if ($package ne 'dumpvar' or $key ne 'stab')
491-
and ref(\$val) eq 'GLOB';
493+
if (
494+
($package ne 'dumpvar' or $key ne 'stab')
495+
and
496+
(ref(\$val) eq 'GLOB') );
492497
}
493498
else {
494499
dumpglob(0,$key, $val, 0, $m);

0 commit comments

Comments
 (0)