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;
