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

[dougm]

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/;
       }
   }