perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From pgollu...@apache.org
Subject svn commit: r235745 - in /perl/modperl/trunk: Changes lib/Apache2/Reload.pm
Date Mon, 22 Aug 2005 16:24:59 GMT
Author: pgollucci
Date: Mon Aug 22 09:24:55 2005
New Revision: 235745

URL: http://svn.apache.org/viewcvs?rev=235745&view=rev
Log:
Sort the output of ReloadDebug alphabetically

Modified:
    perl/modperl/trunk/Changes
    perl/modperl/trunk/lib/Apache2/Reload.pm

Modified: perl/modperl/trunk/Changes
URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/Changes?rev=235745&r1=235744&r2=235745&view=diff
==============================================================================
--- perl/modperl/trunk/Changes (original)
+++ perl/modperl/trunk/Changes Mon Aug 22 09:24:55 2005
@@ -12,6 +12,9 @@
 
 =item 2.0.2-dev
 
+When using Apache2::Reload andReloadDebug is set to 'On' 
+sort the output alphabetically [pgollucci]
+
 croak in case a filter returns DECLINED after calling $f->read (as it
 is not supposed to happen) [Stas]
 

Modified: perl/modperl/trunk/lib/Apache2/Reload.pm
URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/lib/Apache2/Reload.pm?rev=235745&r1=235744&r2=235745&view=diff
==============================================================================
--- perl/modperl/trunk/lib/Apache2/Reload.pm (original)
+++ perl/modperl/trunk/lib/Apache2/Reload.pm Mon Aug 22 09:24:55 2005
@@ -131,7 +131,9 @@
 
     my $ReloadDirs = ref($o) && $o->dir_config("ReloadDirectories");
     my @watch_dirs = split(/\s+/, $ReloadDirs||'');
-    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};
+
         next unless defined $file;
         next if @watch_dirs && !grep { $file =~ /^$_/ } @watch_dirs;
         warn "Apache2::Reload: Checking mtime of $key\n" if $DEBUG;



Mime
View raw message