You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2005/04/06 17:24:30 UTC
svn commit: r160302 - perl/modperl/trunk/lib/Apache2/Reload.pm
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>;
Re: svn commit: r160302 - perl/modperl/trunk/lib/Apache2/Reload.pm
Posted by Geoffrey Young <ge...@modperlcookbook.org>.
stas@apache.org wrote:
> 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
sorry, I really tried to get it all right :)
> + return Apache::OK unless $touch_mtime > $TouchTime;
Apache2::Const::OK?
--Geoff
---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org