perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/lib/Apache Reload.pm
Date Mon, 17 Feb 2003 00:54:49 GMT
stas        2003/02/16 16:54:49

  Modified:    lib/Apache Reload.pm
  Log:
  - get rid of dependency on mod_perl 1.0 (Apache->gensym)
  - require 1.99
  
  Revision  Changes    Path
  1.6       +4 -3      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.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- Reload.pm	29 Nov 2002 05:36:56 -0000	1.5
  +++ Reload.pm	17 Feb 2003 00:54:49 -0000	1.6
  @@ -3,6 +3,8 @@
   use strict;
   use warnings FATAL => 'all';
   
  +use mod_perl 1.99;
  +
   our $VERSION = '0.08';
   
   require Apache::RequestUtil;
  @@ -60,9 +62,8 @@
           my $touch_mtime = (stat($TouchFile))[9] || return 1;
           return 1 unless $touch_mtime > $TouchTime;
           $TouchTime = $touch_mtime;
  -        my $sym = Apache->gensym;
  -        open($sym, $TouchFile) || die "Can't open '$TouchFile': $!";
  -        $TouchModules = <$sym>;
  +        open my $fh, $TouchFile or die "Can't open '$TouchFile': $!";
  +        $TouchModules = <$fh>;
           chomp $TouchModules;
       }
   
  
  
  

Mime
View raw message