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