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/src/modules/perl modperl_mgv.c
Date Wed, 11 Feb 2004 01:19:23 GMT
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 {
  
  
  

Mime
View raw message