diff options
| author | Steve Hay <SteveHay@planit.com> | 2007-05-03 17:17:01 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2007-05-03 17:17:01 +0000 |
| commit | d932daed4961bf485d739adcee3fa2136d8ca8ca (patch) | |
| tree | 89a19c088936556b530dd13a72fde4caf823ea10 /ext | |
| parent | 973f7e2e670dfd20566d14890f0d8717266af6ee (diff) | |
| download | perl-d932daed4961bf485d739adcee3fa2136d8ca8ca.tar.gz | |
Fix breakages caused by #31130:
report_uninit was not exported on Win32 and
my_reg_numbered_buff_length had wrong prototype
p4raw-id: //depot/perl@31132
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/re/re.xs | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/ext/re/re.xs b/ext/re/re.xs index c569ad10b4..13440659d0 100644 --- a/ext/re/re.xs +++ b/ext/re/re.xs @@ -23,14 +23,15 @@ extern SV* my_re_intuit_string (pTHX_ REGEXP * const prog); extern void my_regfree (pTHX_ REGEXP * const r); -extern void my_reg_numbered_buff_fetch(pTHX_ REGEXP * const rx, const I32 paren, - SV * const usesv); -extern void my_reg_numbered_buff_store(pTHX_ REGEXP * const rx, const I32 paren, - SV const * const value); -extern I32 my_reg_numbered_buff_length(pTHX_ REGEXP * const rx, const I32 paren); - -extern SV* my_reg_named_buff_fetch(pTHX_ REGEXP * const rx, SV * const key, - const U32 flags); +extern void my_reg_numbered_buff_fetch(pTHX_ REGEXP * const rx, const I32 paren, + SV * const usesv); +extern void my_reg_numbered_buff_store(pTHX_ REGEXP * const rx, const I32 paren, + SV const * const value); +extern I32 my_reg_numbered_buff_length(pTHX_ REGEXP * const rx, + const SV * const sv, const I32 paren); + +extern SV* my_reg_named_buff_fetch(pTHX_ REGEXP * const rx, SV * const key, + const U32 flags); extern SV* my_reg_qr_package(pTHX_ REGEXP * const rx); #if defined(USE_ITHREADS) |