[prev in list] [next in list] [prev in thread] [next in thread] 

List:       apache-modperl-dev
Subject:    RE: cvs commit: modperl-2.0/Apache-Test/lib/Apache TestConfigPerl
From:       Doug MacEachern <dougm () covalent ! net>
Date:       2001-07-09 16:04:30
[Download RAW message or body]

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

[prev in list] [next in list] [prev in thread] [next in thread]