perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From "Philip M. Gollucci" <pgollu...@p6m7g8.com>
Subject Re: svn commit: r239724 - /perl/modperl/trunk/lib/Apache2/Build.pm
Date Wed, 24 Aug 2005 20:21:07 GMT
Stas Bekman wrote:
> 
>> +sub cmp_tuples {
>> +
>> +    my($a, $b) = @_;
>> +
>> +    while (@$a && @$b) {
>> +        my $cmp = shift @$a <=> shift @$b;
>> +        return $cmp if $cmp;
>> +    }
>> +
>> +    return @$a <=> @$b;
>> +}
> 
> 
> Philip, please avoid using $a and $b in any code, but sort() callbacks, 
> as they are special in perl and may have bad side effects.
Gozer wrote that :)

-- 
END
------------------------------------------------------------
     What doesn't kill us can only make us stronger.
                 Nothing is impossible.
				
Philip M. Gollucci (pgollucci@p6m7g8.com) 301.254.5198
Consultant / http://p6m7g8.net/Resume/
Senior Developer / Liquidity Services, Inc.
   http://www.liquidityservicesinc.com
        http://www.liquidation.com
        http://www.uksurplus.com
        http://www.govliquidation.com
        http://www.gowholesale.com


---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org


Mime
View raw message