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);