cvs commit: modperl-2.0/lib/Apache Reload.pm

[stas]

stas        2003/12/13 18:50:39

  Modified:    lib/Apache Reload.pm
  Log:
  sometimes when require fails we end up with key => undef, entry in
  Apache::Reload::INCS, so skip those entries
  
  Revision  Changes    Path
  1.12      +1 -0      modperl-2.0/lib/Apache/Reload.pm
  
  Index: Reload.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/Apache/Reload.pm,v
  retrieving revision 1.11
  retrieving revision 1.12
  diff -u -u -r1.11 -r1.12
  --- Reload.pm 3 Jun 2003 00:09:04 -0000       1.11
  +++ Reload.pm 14 Dec 2003 02:50:39 -0000      1.12
  @@ -117,6 +117,7 @@
       my $ReloadDirs = ref($o) && $o->dir_config("ReloadDirectories");
       my @watch_dirs = split(/\s+/, $ReloadDirs||'');
       while (my($key, $file) = each %Apache::Reload::INCS) {
  +        next unless defined $file;
           next if @watch_dirs && !grep { $file =~ /^$_/ } @watch_dirs;
           warn "Apache::Reload: Checking mtime of $key\n" if $DEBUG;