Return-Path: Delivered-To: apmail-perl-dev-archive@perl.apache.org Received: (qmail 21394 invoked by uid 500); 8 May 2003 00:09:16 -0000 Mailing-List: contact dev-help@perl.apache.org; run by ezmlm Precedence: bulk list-help: list-unsubscribe: list-post: Delivered-To: mailing list dev@perl.apache.org Received: (qmail 21379 invoked from network); 8 May 2003 00:09:16 -0000 Received: from erato.logilune.com (HELO mail.logilune.com) (195.154.174.52) by daedalus.apache.org with SMTP; 8 May 2003 00:09:16 -0000 Received: from stason.org (localhost.logilune.com [127.0.0.1]) by mail.logilune.com (Postfix) with ESMTP id 981987851F; Thu, 8 May 2003 02:09:22 +0200 (CEST) Message-ID: <3EB9A02D.5080106@stason.org> Date: Thu, 08 May 2003 10:09:17 +1000 From: Stas Bekman Organization: Hope, Humanized User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.1) Gecko/20020826 X-Accept-Language: en-us, en MIME-Version: 1.0 To: Dmitri Tikhonov Cc: dev@perl.apache.org Subject: Re: [mp2] Apache::Reload and touch files. References: Content-Type: text/plain; charset=us-ascii; format=flowed Content-Transfer-Encoding: 7bit X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N 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