You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by pg...@apache.org on 2005/08/24 22:42:55 UTC
svn commit: r239919 - /perl/modperl/trunk/lib/Apache2/Build.pm
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 {