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; }