perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From "Philip M. Gollucci" <pgollu...@p6m7g8.com>
Subject [PATCH] Apache2::Reload
Date Sun, 21 Aug 2005 09:14:02 GMT
Hi,

Given:

PerlModule Apache2::Reload
PerlInitHandler Apache2::Reload
PerlSetVar ReloadDebug On

This list can get big, making it hard to find the module.  This patch sorts it alphabetically.

Index: Reload.pm
===================================================================
--- Reload.pm   (revision 234167)
+++ Reload.pm   (working copy)
@@ -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;


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