cvs commit: modperl-2.0/src/modules/perl modperl_util.c

[dougm]

dougm       01/03/12 21:09:03

  Modified:    src/modules/perl modperl_util.c
  Log:
  log $@ if $@ in require_module()
  
  Revision  Changes    Path
  1.4       +6 -1      modperl-2.0/src/modules/perl/modperl_util.c
  
  Index: modperl_util.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_util.c,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- modperl_util.c    2001/03/09 23:46:36     1.3
  +++ modperl_util.c    2001/03/13 05:09:02     1.4
  @@ -14,7 +14,12 @@
       SPAGAIN;
       POPSTACK;
   
  -    return SvTRUE(ERRSV) ? FALSE : TRUE;
  +    if (SvTRUE(ERRSV)) {
  +        (void)modperl_errsv(aTHX_ HTTP_INTERNAL_SERVER_ERROR, NULL, NULL);
  +        return FALSE;
  +    }
  +        
  +    return TRUE;
   }
   
   MP_INLINE request_rec *modperl_sv2request_rec(pTHX_ SV *sv)