This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
remove an 'if $a if 0' from AutoSplit.t
authorDave Mitchell <davem@fdisolutions.com>
Thu, 4 Mar 2004 21:38:57 +0000 (21:38 +0000)
committerDave Mitchell <davem@fdisolutions.com>
Thu, 4 Mar 2004 21:38:57 +0000 (21:38 +0000)
p4raw-id: //depot/perl@22434

lib/AutoSplit.t

index 174902a..f767a00 100644 (file)
@@ -299,7 +299,7 @@ Split prior to checking whether obsolete files get deleted
 use AutoLoader 'AUTOLOAD';
 1;
 __END__
-sub obsolete {my $a if 0; return $a++;}
+sub obsolete {our $hidden_a; return $hidden_a++;}
 sub gonner {warn "This gonner function should never get called"}
 ## Get
 AutoSplitting *INC**PATHSEP**MOD*.pm (*DIR**PATHSEP**MOD**ENDPATHSEP*)