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

[dougm]

dougm       01/10/08 16:34:07

  Modified:    src/modules/perl modperl_util.c modperl_util.h
  Log:
  add modperl_perl_exit() function
  
  Revision  Changes    Path
  1.25      +8 -0      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.24
  retrieving revision 1.25
  diff -u -r1.24 -r1.25
  --- modperl_util.c    2001/10/07 20:24:21     1.24
  +++ modperl_util.c    2001/10/08 23:34:07     1.25
  @@ -422,6 +422,14 @@
       }
   }
   
  +void modperl_perl_exit(pTHX_ int status)
  +{
  +    ENTER;
  +    SAVESPTR(PL_diehook);
  +    PL_diehook = Nullsv; 
  +    Perl_croak(aTHX_ NULL);
  +}
  +
   MP_INLINE SV *modperl_dir_config(pTHX_ request_rec *r, server_rec *s,
                                    char *key, SV *sv_val)
   {
  
  
  
  1.24      +2 -0      modperl-2.0/src/modules/perl/modperl_util.h
  
  Index: modperl_util.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_util.h,v
  retrieving revision 1.23
  retrieving revision 1.24
  diff -u -r1.23 -r1.24
  --- modperl_util.h    2001/10/07 20:24:21     1.23
  +++ modperl_util.h    2001/10/08 23:34:07     1.24
  @@ -70,6 +70,8 @@
   
   void modperl_perl_call_list(pTHX_ AV *subs, const char *name);
   
  +void modperl_perl_exit(pTHX_ int status);
  +
   MP_INLINE SV *modperl_dir_config(pTHX_ request_rec *r, server_rec *s,
                                    char *key, SV *sv_val);