Author: pgollucci Date: Wed Aug 24 13:42:53 2005 New Revision: 239919 URL: http://svn.apache.org/viewcvs?rev=239919&view=rev Log: s/$a/$num_a/g s/$b/$num_b/g to avoid conflicting with the special lexicals $a, $b
Modified: perl/modperl/trunk/lib/Apache2/Build.pm Modified: perl/modperl/trunk/lib/Apache2/Build.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/lib/Apache2/Build.pm?rev=239919&r1=239918&r2=239919&view=diff ============================================================================== --- perl/modperl/trunk/lib/Apache2/Build.pm (original) +++ perl/modperl/trunk/lib/Apache2/Build.pm Wed Aug 24 13:42:53 2005 @@ -576,14 +576,14 @@ } sub cmp_tuples { - my($a, $b) = @_; + my($num_a, $num_b) = @_; - while (@$a && @$b) { - my $cmp = shift @$a <=> shift @$b; + while (@$num_a && @$num_b) { + my $cmp = shift @$num_a <=> shift @$num_b; return $cmp if $cmp; } - return @$a <=> @$b; + return @$num_a <=> @$num_b; } sub perl_ccopts {