perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From pgollu...@apache.org
Subject svn commit: r239919 - /perl/modperl/trunk/lib/Apache2/Build.pm
Date Wed, 24 Aug 2005 20:42:55 GMT
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 {



Mime
View raw message