From: Vincent Pit Date: Sun, 27 Feb 2011 16:18:10 +0000 (+0100) Subject: Clarify the conditional in pp_gv X-Git-Tag: rt63842~1 X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FB-RecDeparse.git;a=commitdiff_plain;h=966c82445f36d4af65957d984ebf0f11f247431e Clarify the conditional in pp_gv --- diff --git a/lib/B/RecDeparse.pm b/lib/B/RecDeparse.pm index 35333fa..89d695c 100644 --- a/lib/B/RecDeparse.pm +++ b/lib/B/RecDeparse.pm @@ -186,7 +186,7 @@ sub pp_gv { my $seen = $self->{brd_seen}; my $body; - if ($self->{brd_sub} <= 0 || !$self->_recurse || $seen->{$name}) { + if (!$self->{brd_sub} or !$self->_recurse or $seen->{$name}) { $body = $self->SUPER::pp_gv(@_); } else { $body = do {