Commit | Line | Data |
b9d5759e |
1 | /* We need access to debugger hooks */ |
2 | #ifndef DEBUGGING |
3 | # define DEBUGGING |
4 | #endif |
5 | |
56953603 |
6 | #include "EXTERN.h" |
7 | #include "perl.h" |
8 | #include "XSUB.h" |
9 | |
10 | extern regexp* my_regcomp _((char* exp, char* xend, PMOP* pm)); |
11 | extern I32 my_regexec _((regexp* prog, char* stringarg, char* strend, |
12 | char* strbeg, I32 minend, SV* screamer, |
13 | void* data, U32 flags)); |
14 | |
15 | static int oldfl; |
16 | |
17 | #define R_DB 512 |
18 | |
19 | static void |
20 | deinstall(void) |
21 | { |
5c0ca799 |
22 | dTHR; |
56953603 |
23 | regexecp = ®exec_flags; |
24 | regcompp = &pregcomp; |
25 | if (!oldfl) |
26 | debug &= ~R_DB; |
27 | } |
28 | |
29 | static void |
30 | install(void) |
31 | { |
5c0ca799 |
32 | dTHR; |
56953603 |
33 | regexecp = &my_regexec; |
34 | regcompp = &my_regcomp; |
35 | oldfl = debug & R_DB; |
36 | debug |= R_DB; |
37 | } |
38 | |
39 | MODULE = re PACKAGE = re |
40 | |
41 | void |
42 | install() |
43 | |
44 | void |
45 | deinstall() |