From: Vincent Pit Date: Mon, 1 Sep 2008 09:03:44 +0000 (+0200) Subject: Simplify double negations X-Git-Tag: v0.03~1 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=64760329f8a4af897da0b98bc7b9359690e35e9b;p=perl%2Fmodules%2Fsubs-auto.git Simplify double negations --- diff --git a/lib/subs/auto.pm b/lib/subs/auto.pm index 9046588..d93706a 100644 --- a/lib/subs/auto.pm +++ b/lib/subs/auto.pm @@ -119,15 +119,14 @@ sub _reset { sub _fetch { (undef, my $data, my $func) = @_; - return if $data->{guard}; - return unless $func !~ /::/ and not exists $core{$func}; + return if $data->{guard} or $func =~ /::/ or exists $core{$func}; $data->{guard} = 1; my $hints = (caller 0)[10]; if ($hints and $hints->{subs__auto}) { my $mod = $func . '.pm'; if (not exists $INC{$mod}) { my $fqn = $data->{pkg} . '::' . $func; - if (do { no strict 'refs'; not *$fqn{CODE} and not *$fqn{IO}}) { + if (do { no strict 'refs'; not *$fqn{CODE} || *$fqn{IO}}) { my $cb = sub { my ($file, $line) = (caller 0)[1, 2]; ($file, $line) = ('(eval 0)', 0) unless $file && $line;