diff options
| author | Yves Orton <demerphq@gmail.com> | 2006-11-13 00:29:41 +0100 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-11-13 02:19:12 +0000 |
| commit | de8c53012b7e614137ab875e0d58a92474b317ce (patch) | |
| tree | cc24fc09cc1af2e140a8d29a1bcd652cba6c4b00 /perl.h | |
| parent | 7834bb7eff465724a885b368420973bce2d27483 (diff) | |
| download | perl-de8c53012b7e614137ab875e0d58a92474b317ce.tar.gz | |
Regex Utility Functions and Substituion Fix (XML::Twig core dump)
Message-ID: <9b18b3110611121429g1fc9d6c1t4007dc711f9e8396@mail.gmail.com>
Plus a couple tweaks to ext/re/re.pm and t/op/pat.t to those patches
to apply cleanly.
p4raw-id: //depot/perl@29252
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -210,6 +210,9 @@ CALL_FPTR((prog)->engine->checkstr)(aTHX_ (prog)) #define CALLREGFREE(prog) \ if(prog) CALL_FPTR((prog)->engine->free)(aTHX_ (prog)) +#define CALLREG_AS_STR(mg,lp,flags,haseval) \ + CALL_FPTR(((regexp *)((mg)->mg_obj))->engine->as_str)(aTHX_ (mg), (lp), (flags), (haseval)) +#define CALLREG_STRINGIFY(mg,lp,flags) CALLREG_AS_STR(mg,lp,flags,0) #if defined(USE_ITHREADS) #define CALLREGDUPE(prog,param) \ (prog ? CALL_FPTR((prog)->engine->dupe)(aTHX_ (prog),(param)) \ |