diff options
| author | David Mitchell <davem@iabyn.com> | 2011-08-17 16:41:04 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2012-06-13 13:25:49 +0100 |
| commit | f8b2cf8affb6b075db359edf9986904b971337f8 (patch) | |
| tree | 4703d2579e4b8e8a12d29ba12222291c0167ee0f /embed.h | |
| parent | a39c66b9916c518396f68150e865c9d8e4d14018 (diff) | |
| download | perl-f8b2cf8affb6b075db359edf9986904b971337f8.tar.gz | |
add Perl_current_re_engine() function
Abstract out into a separate function the task of finding the current
in-scope regex engine ($^H{regex}). Currently this task is only done in
one place each for compile- and run-time, but shortly we'll need it in
other places too.
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -1053,6 +1053,7 @@ #define core_prototype(a,b,c,d) Perl_core_prototype(aTHX_ a,b,c,d) #define coresub_op(a,b,c) Perl_coresub_op(aTHX_ a,b,c) #define create_eval_scope(a) Perl_create_eval_scope(aTHX_ a) +#define current_re_engine() Perl_current_re_engine(aTHX) #define cv_ckproto_len_flags(a,b,c,d,e) Perl_cv_ckproto_len_flags(aTHX_ a,b,c,d,e) #define cvgv_set(a,b) Perl_cvgv_set(aTHX_ a,b) #define cvstash_set(a,b) Perl_cvstash_set(aTHX_ a,b) |