perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Geoffrey Young <ge...@modperlcookbook.org>
Subject Re: [PATCH] Apache2::Reload
Date Mon, 22 Aug 2005 16:11:14 GMT

> -    while (my($key, $file) = each %Apache2::Reload::INCS) {
> +    foreach my $key (sort { $a cmp $b } keys %Apache2::Reload::INCS) {
> +        my $file = $Apache2::Reload::INCS{$key};

I hate each.

+1

--Geoff

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


Mime
View raw message