You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@apache.org on 2001/06/26 19:09:50 UTC
cvs commit: modperl-2.0/Apache-Test/lib/Apache TestConfigPerl.pm
dougm 01/06/26 10:09:50
Modified: Apache-Test/lib/Apache TestConfigPerl.pm
Log:
die in modperl_startup.pl if modperl_{inc,extra}.pl die
Revision Changes Path
1.13 +2 -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.12
retrieving revision 1.13
diff -u -r1.12 -r1.13
--- TestConfigPerl.pm 2001/05/05 22:05:31 1.12
+++ TestConfigPerl.pm 2001/06/26 17:09:46 1.13
@@ -82,7 +82,8 @@
BEGIN {
use lib '$serverroot';
for my \$file (qw(modperl_inc.pl modperl_extra.pl)) {
- eval { require "conf/\$file" };
+ eval { require "conf/\$file" } or
+ die if \$@ !~ /^Can.t locate/;
}
}