perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Dmitri Tikhonov <dmi...@netilla.com>
Subject Re: [mp2] Apache::Reload and touch files.
Date Thu, 08 May 2003 00:24:10 GMT

Yup, 1.99_09 does the same thing without the patch, but the patch fixes
it, thanks.

  - Dmitri.

P.S.  Is it just me or is 1.99_09 faster than the previous release?

On Thu, 8 May 2003, Stas Bekman wrote:

> Dmitri Tikhonov wrote:
> > This is a patch against Apache::Reload from 1.99_08:
> >
> > --- Apache/Reload.pm.orig       Wed May  7 19:49:21 2003
> > +++ Apache/Reload.pm    Wed May  7 19:49:24 2003
> > @@ -62,7 +62,7 @@
> >          $TouchTime = $touch_mtime;
> >          my $sym = Apache->gensym;
> >          open($sym, $TouchFile) || die "Can't open '$TouchFile': $!";
> > -        $TouchModules = <$sym>;
> > +        $TouchModules = (<$sym> || '');
> >          chomp $TouchModules;
> >      }
>
> But this is not the code that we have in 1.99_09 (sorry I've missed the fact
> that you were talking about 1.99_08). Can you please try to install 1.99_09?
>
> with this patch on top of it:
>
> Index: lib/Apache/Reload.pm
> ===================================================================
> RCS file: /home/cvs/modperl-2.0/lib/Apache/Reload.pm,v
> retrieving revision 1.9
> diff -u -r1.9 Reload.pm
> --- lib/Apache/Reload.pm        17 Feb 2003 09:39:54 -0000      1.9
> +++ lib/Apache/Reload.pm        8 May 2003 00:08:37 -0000
> @@ -72,7 +72,7 @@
>           $TouchTime = $touch_mtime;
>           open my $fh, $TouchFile or die "Can't open '$TouchFile': $!";
>           $TouchModules = <$fh>;
> -        chomp $TouchModules;
> +        chomp $TouchModules if $TouchModules;
>       }
>
>       if (ref($o) && (lc($o->dir_config("ReloadAll") || 'on') eq 'on')) {
>
>
>
> __________________________________________________________________
> Stas Bekman            JAm_pH ------> Just Another mod_perl Hacker
> http://stason.org/     mod_perl Guide ---> http://perl.apache.org
> mailto:stas@stason.org http://use.perl.org http://apacheweek.com
> http://modperlbook.org http://apache.org   http://ticketmaster.com
>
>


---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org


Mime
View raw message