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 | { |
17 | regexecp = ®exec_flags; |
18 | regcompp = &pregcomp; |
19 | if (!oldfl) |
20 | debug &= ~R_DB; |
21 | } |
22 | |
23 | static void |
24 | install(void) |
25 | { |
26 | regexecp = &my_regexec; |
27 | regcompp = &my_regcomp; |
28 | oldfl = debug & R_DB; |
29 | debug |= R_DB; |
30 | } |
31 | |
32 | MODULE = re PACKAGE = re |
33 | |
34 | void |
35 | install() |
36 | |
37 | void |
38 | deinstall() |