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