perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From pgollu...@apache.org
Subject svn commit: r327745 - /perl/modperl/trunk/lib/Apache2/PerlSections.pm
Date Sun, 23 Oct 2005 04:21:39 GMT
Author: pgollucci
Date: Sat Oct 22 21:21:36 2005
New Revision: 327745

URL: http://svn.apache.org/viewcvs?rev=327745&view=rev
Log:
When using Apache2::PerlSections->dump, the configuration 
would print out in the correct order, but when the configuration was 
passed off to Apache the ordering was lost.

Submitted By: Scott Wessels <swessels@usgn.net>
Reviewed By: Geoff


Modified:
    perl/modperl/trunk/lib/Apache2/PerlSections.pm

Modified: perl/modperl/trunk/lib/Apache2/PerlSections.pm
URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/lib/Apache2/PerlSections.pm?rev=327745&r1=327744&r2=327745&view=diff
==============================================================================
--- perl/modperl/trunk/lib/Apache2/PerlSections.pm (original)
+++ perl/modperl/trunk/lib/Apache2/PerlSections.pm Sat Oct 22 21:21:36 2005
@@ -129,7 +129,7 @@
 sub dump_hash {
     my ($self, $name, $hash) = @_;
 
-    for my $entry (sort keys %{ $hash || {} }) {
+    for my $entry (keys %{ $hash || {} }) {
         my $item = $hash->{$entry};
         my $type = ref($item);
 
@@ -149,7 +149,7 @@
 
     $self->add_config("<$name $loc>\n");
 
-    for my $entry (sort keys %{ $hash || {} }) {
+    for my $entry (keys %{ $hash || {} }) {
         $self->dump_entry($entry, $hash->{$entry});
     }
 



Mime
View raw message