stas 2003/02/16 21:16:06 Modified: lib/Apache Reload.pm Log: the handler should return an Apache constant (it was returning 1, which is undefined) Revision Changes Path 1.8 +3 -1 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.7 retrieving revision 1.8 diff -u -r1.7 -r1.8 --- Reload.pm 17 Feb 2003 00:57:17 -0000 1.7 +++ Reload.pm 17 Feb 2003 05:16:06 -0000 1.8 @@ -7,6 +7,8 @@ our $VERSION = '0.08'; +use Apache::Const -compile => qw(OK); + require Apache::RequestUtil; use vars qw(%INCS %Stat $TouchTime %UndefFields); @@ -140,7 +142,7 @@ $Stat{$file} = $mtime; } - return 1; + return Apache::OK; } 1;