svn commit: r160302 - perl/modperl/trunk/lib/Apache2/Reload.pm

[stas]

Author: stas
Date: Wed Apr  6 08:24:29 2005
New Revision: 160302

URL: http://svn.apache.org/viewcvs?view=rev&rev=160302
Log:
restore change 159313 lost in merge

Modified:
    perl/modperl/trunk/lib/Apache2/Reload.pm

Modified: perl/modperl/trunk/lib/Apache2/Reload.pm
URL: 
http://svn.apache.org/viewcvs/perl/modperl/trunk/lib/Apache2/Reload.pm?view=diff&r1=160301&r2=160302
==============================================================================
--- perl/modperl/trunk/lib/Apache2/Reload.pm (original)
+++ perl/modperl/trunk/lib/Apache2/Reload.pm Wed Apr  6 08:24:29 2005
@@ -95,8 +95,8 @@
 
     if ($TouchFile) {
         warn "Checking mtime of $TouchFile\n" if $DEBUG;
-        my $touch_mtime = (stat $TouchFile)[9] || return 1;
-        return 1 unless $touch_mtime > $TouchTime;
+        my $touch_mtime = (stat $TouchFile)[9] || return Apache::OK;
+        return Apache::OK unless $touch_mtime > $TouchTime;
         $TouchTime = $touch_mtime;
         open my $fh, $TouchFile or die "Can't open '$TouchFile': $!";
         $TouchModules = <$fh>;