diff options
| author | Yves Orton <demerphq@gmail.com> | 2007-02-13 21:27:33 +0100 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2007-02-13 19:43:15 +0000 |
| commit | 93b32b6daeecaf211c8a9bf2a93d0f4701c279ab (patch) | |
| tree | a0ff4796f46b034f006727d9e4e425c2efc2fbfb /mg.c | |
| parent | a3b492c399ef137d223bafd54197b14ebda3d9e0 (diff) | |
| download | perl-93b32b6daeecaf211c8a9bf2a93d0f4701c279ab.tar.gz | |
add hooks for capture buffers into regex engine.
Message-ID: <9b18b3110702131127q79cc6df1lb1480d9a40d15213@mail.gmail.com>
p4raw-id: //depot/perl@30265
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 14 |
1 files changed, 7 insertions, 7 deletions
@@ -863,7 +863,7 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg) * XXX Does the new way break anything? */ paren = atoi(mg->mg_ptr); /* $& is in [0] */ - reg_numbered_buff_get( paren, rx, sv, 0); + CALLREG_NUMBUF(rx,paren,sv); break; } sv_setsv(sv,&PL_sv_undef); @@ -872,7 +872,7 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg) case '+': if (PL_curpm && (rx = PM_GETRE(PL_curpm))) { if (rx->lastparen) { - reg_numbered_buff_get( rx->lastparen, rx, sv, 0); + CALLREG_NUMBUF(rx,rx->lastparen,sv); break; } } @@ -881,7 +881,7 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg) case '\016': /* ^N */ if (PL_curpm && (rx = PM_GETRE(PL_curpm))) { if (rx->lastcloseparen) { - reg_numbered_buff_get( rx->lastcloseparen, rx, sv, 0); + CALLREG_NUMBUF(rx,rx->lastcloseparen,sv); break; } @@ -891,16 +891,16 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg) case '`': do_prematch_fetch: if (PL_curpm && (rx = PM_GETRE(PL_curpm))) { - reg_numbered_buff_get( -2, rx, sv, 0); - break; + CALLREG_NUMBUF(rx,-2,sv); + break; } sv_setsv(sv,&PL_sv_undef); break; case '\'': do_postmatch_fetch: if (PL_curpm && (rx = PM_GETRE(PL_curpm))) { - reg_numbered_buff_get( -1, rx, sv, 0); - break; + CALLREG_NUMBUF(rx,-1,sv); + break; } sv_setsv(sv,&PL_sv_undef); break; |