You are viewing a plain text version of this content. The canonical link for it is here.
Posted to dev@perl.apache.org by Geoffrey Young <gy...@laserlink.net> on 2001/07/09 17:21:51 UTC

RE: cvs commit: modperl-2.0/Apache-Test/lib/Apache TestConfigPerl .pm


> -----Original Message-----
> From: Doug MacEachern [mailto:dougm@covalent.net]
> Sent: Monday, July 09, 2001 11:11 AM
> To: 'dev@perl.apache.org'
> Cc: modperl-2.0-cvs@apache.org
> Subject: RE: cvs commit: modperl-2.0/Apache-Test/lib/Apache
> TestConfigPerl .pm
> 
> 
> On Mon, 9 Jul 2001, Geoffrey Young wrote:
> 
> > >   die in modperl_startup.pl if modperl_{inc,extra}.pl die
>  
> > anyway, I thought modperl_extra.pl was supposed to be optional?
> 
> it is still optional, but if it exists and dies, then mod_perl should
> propagate that.  although, the $@ !~ /^Can.t locate/ is 
> bogus, because it
> might be that modperl_extra.pl was located, but a module it 
> requires was
> not.

except that my test was dying because modperl_extra.pl didn't exist... I had
to put an (almost) empty file there to get around this warning...

waiting for server to warm up...[Mon Jul  9 11:17:33 2001] [error] Can't
locate conf/modperl_extra.pl in @INC (@INC contains:
/src/Apache/Simple/blib/arch /src/Apache/Simple/blib/lib
/src/Apache/Simple/t /src/bleedperl/lib/5.7.1/i686-linux-thread-multi
/src/bleedperl/lib/5.7.1
/src/bleedperl/lib/site_perl/5.7.1/i686-linux-thread-multi
/src/bleedperl/lib/site_perl/5.7.1 /src/bleedperl/lib/site_perl .
/src/Apache/Simple/t/ /src/Apache/Simple/t/lib/perl) at
/src/Apache/Simple/t/conf/modperl_startup.pl line 6.
        ...propagated at /src/Apache/Simple/t/conf/modperl_startup.pl line
6.

but maybe it was early ;)

--Geoff

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


RE: cvs commit: modperl-2.0/Apache-Test/lib/Apache TestConfigPerl .pm

Posted by Doug MacEachern <do...@covalent.net>.
On Mon, 9 Jul 2001, Geoffrey Young wrote:
 
> except that my test was dying because modperl_extra.pl didn't exist... I had
> to put an (almost) empty file there to get around this warning...

weird.  well the pattern was bogus anyhow, i think this will hold up
better for the moment..

Index: Apache-Test/lib/Apache/TestConfigPerl.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/Apache-Test/lib/Apache/TestConfigPerl.pm,v
retrieving revision 1.13
diff -u -r1.13 TestConfigPerl.pm
--- Apache-Test/lib/Apache/TestConfigPerl.pm    2001/06/26 17:09:46
1.13
+++ Apache-Test/lib/Apache/TestConfigPerl.pm    2001/07/09 16:01:21
@@ -83,7 +83,7 @@
     use lib '$serverroot';
     for my \$file (qw(modperl_inc.pl modperl_extra.pl)) {
         eval { require "conf/\$file" } or
-            die if \$@ !~ /^Can.t locate/;
+            die if grep { -e "\$_/conf/\$file" } \@INC;
     }
 }
 



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