diff options
| author | Ævar Arnfjörð Bjarmason <avar@cpan.org> | 2007-03-29 22:52:49 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-04-06 12:13:14 +0000 |
| commit | fe578d7fdd84ab0398dc36da7f84e59e1f2bb290 (patch) | |
| tree | 1289059a6511c1835ad363674d2661b8bbd48e61 /ext/re | |
| parent | 944c4fdaac207ce2839ee03a49666f3fe72b9802 (diff) | |
| download | perl-fe578d7fdd84ab0398dc36da7f84e59e1f2bb290.tar.gz | |
Re: Proposed changes and to regular expression interfaces in core
From: "Ævar Arnfjörð Bjarmason" <avarab@gmail.com>
Message-ID: <51dd1af80703291552y1073bcb6r954b043eb68a4459@mail.gmail.com>
p4raw-id: //depot/perl@30849
Diffstat (limited to 'ext/re')
| -rw-r--r-- | ext/re/re.xs | 2 | ||||
| -rw-r--r-- | ext/re/re_top.h | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/ext/re/re.xs b/ext/re/re.xs index 5ab5f7c095..aa87bb688c 100644 --- a/ext/re/re.xs +++ b/ext/re/re.xs @@ -24,6 +24,7 @@ extern SV* my_re_intuit_string (pTHX_ regexp *prog); extern void my_regfree (pTHX_ struct regexp* r); extern SV* my_reg_numbered_buff_get(pTHX_ const REGEXP * const rx, I32 paren, SV* usesv); extern SV* my_reg_named_buff_get(pTHX_ const REGEXP * const rx, SV* namesv, U32 flags); +extern SV* my_reg_qr_pkg(pTHX_ const REGEXP * const rx); #if defined(USE_ITHREADS) extern void* my_regdupe (pTHX_ const regexp *r, CLONE_PARAMS *param); #endif @@ -40,6 +41,7 @@ const struct regexp_engine my_reg_engine = { my_regfree, my_reg_numbered_buff_get, my_reg_named_buff_get, + my_reg_qr_pkg, #if defined(USE_ITHREADS) my_regdupe #endif diff --git a/ext/re/re_top.h b/ext/re/re_top.h index 7f53a74631..39e02768de 100644 --- a/ext/re/re_top.h +++ b/ext/re/re_top.h @@ -18,6 +18,7 @@ #define Perl_regdupe_internal my_regdupe #define Perl_reg_numbered_buff_get my_reg_numbered_buff_get #define Perl_reg_named_buff_get my_reg_named_buff_get +#define Perl_reg_qr_pkg my_reg_qr_pkg #define PERL_NO_GET_CONTEXT |