perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/ModPerl-Registry/lib/ModPerl RegistryCooker.pm
Date Sat, 15 Jun 2002 04:51:25 GMT
stas        2002/06/14 21:51:25

  Modified:    ModPerl-Registry/lib/ModPerl RegistryCooker.pm
  Log:
  properly propogate back the error codes and abort where things fail
  
  Revision  Changes    Path
  1.8       +3 -1      modperl-2.0/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm
  
  Index: RegistryCooker.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm,v
  retrieving revision 1.7
  retrieving revision 1.8
  diff -u -r1.7 -r1.8
  --- RegistryCooker.pm	14 May 2002 15:45:06 -0000	1.7
  +++ RegistryCooker.pm	15 Jun 2002 04:51:25 -0000	1.8
  @@ -144,7 +144,8 @@
       if ($o->should_compile) {
           my $rc = $o->can_compile;
           return $rc unless $rc == Apache::OK;
  -        $o->convert_script_to_compiled_handler;
  +        $rc = $o->convert_script_to_compiled_handler;
  +        return $rc unless $rc == Apache::OK;
       }
   
       return $o->run;
  @@ -333,6 +334,7 @@
       my %orig_inc = %INC;
   
       my $rc = $o->compile(\$eval);
  +    return $rc unless $rc == Apache::OK;
       $o->debug(qq{compiled package \"$o->[PACKAGE]\"}) if DEBUG & D_NOISE;
   
       #$o->chdir_file("$Apache::Server::CWD/");
  
  
  

Mime
View raw message