1 #include "EXTERN.h" 2 #include "perl.h" 3 #include "XSUB.h" 4 5 #ifdef WIN32 6 #define SIGINT 2 7 #endif 8 my_init_debugger()9static void my_init_debugger() 10 { 11 dTHR; 12 Perl_init_debugger(aTHX); 13 } 14 15 static Sighandler_t ApacheSIGINT = NULL; 16 17 MODULE = Apache::DB PACKAGE = Apache::DB 18 19 PROTOTYPES: DISABLE 20 21 BOOT: 22 ApacheSIGINT = rsignal_state(whichsig("INT")); 23 24 int 25 init_debugger() 26 27 CODE: 28 if (!PL_perldb) { 29 PL_perldb = PERLDB_ALL; 30 my_init_debugger(); 31 RETVAL = TRUE; 32 } 33 else 34 RETVAL = FALSE; 35 36 OUTPUT: 37 RETVAL 38 39 MODULE = Apache::DB PACKAGE = DB 40 41 void 42 ApacheSIGINT(...) 43 44 CODE: 45 #if ((PERL_REVISION == 5) && (PERL_VERSION >= 10) && (PERL_VERSION <= 30)) && defined(HAS_SIGACTION) && defined(SA_SIGINFO) 46 if (ApacheSIGINT) (*ApacheSIGINT)(SIGINT, NULL, NULL); 47 #else 48 if (ApacheSIGINT) (*ApacheSIGINT)(SIGINT); 49 #endif 50