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

[stas]

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;