dougm 01/07/09 09:04:48
Modified: Apache-Test/lib/Apache TestConfigPerl.pm
Log:
better check for existance of modperl_{inc,extra}.pl
Revision Changes Path
1.14 +1 -1 modperl-2.0/Apache-Test/lib/Apache/TestConfigPerl.pm
Index: TestConfigPerl.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/Apache-Test/lib/Apache/TestConfigPerl.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -r1.13 -r1.14
--- TestConfigPerl.pm 2001/06/26 17:09:46 1.13
+++ TestConfigPerl.pm 2001/07/09 16:04:44 1.14
@@ -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;
}
}