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 st...@apache.org on 2002/06/15 06:51:25 UTC
cvs commit: modperl-2.0/ModPerl-Registry/lib/ModPerl RegistryCooker.pm
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/");