stas 2004/02/10 17:19:23
Modified: src/modules/perl modperl_mgv.c
Log:
in case modperl_mgv_resolve was called with logfailure=FALSE, we must not
croak on error and let the caller handle the situation
Revision Changes Path
1.33 +9 -1 modperl-2.0/src/modules/perl/modperl_mgv.c
Index: modperl_mgv.c
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_mgv.c,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -u -r1.32 -r1.33
--- modperl_mgv.c 9 Feb 2004 19:32:42 -0000 1.32
+++ modperl_mgv.c 11 Feb 2004 01:19:23 -0000 1.33
@@ -277,7 +277,15 @@
MP_TRACE_h(MP_FUNC, "loaded %s package\n", name);
}
else {
- Perl_croak(aTHX_ "failed to load %s package\n", name);
+ if (logfailure) {
+ /* the caller doesn't handle the error checking */
+ Perl_croak(aTHX_ "failed to load %s package\n", name);
+ }
+ else {
+ /* the caller handles the error checking */
+ MP_TRACE_h(MP_FUNC, "failied to load %s package\n", name);
+ return 0;
+ }
}
}
else {
