diff options
| author | Ævar Arnfjörð Bjarmason <avar@cpan.org> | 2007-06-03 20:24:59 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-06-06 14:42:01 +0000 |
| commit | 192b9cd13b3ba000f1d0a2d32c141b9513be7936 (patch) | |
| tree | 26f0762a3e487484176e678091b6f25c2dafa33a /mg.c | |
| parent | efd46721a0c1bd9cb5bfa6492d03a4890f3d86e8 (diff) | |
| download | perl-192b9cd13b3ba000f1d0a2d32c141b9513be7936.tar.gz | |
Re: [PATCH] Callbacks for named captures (%+ and %-)
From: "Ævar Arnfjörð Bjarmason" <avarab@gmail.com>
Message-ID: <51dd1af80706031324y5618d519p460da27a2e7fe712@mail.gmail.com>
p4raw-id: //depot/perl@31341
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -603,15 +603,15 @@ Perl_magic_len(pTHX_ SV *sv, MAGIC *mg) } case '`': do_prematch: - paren = -2; + paren = RXf_PREMATCH; goto maybegetparen; case '\'': do_postmatch: - paren = -1; + paren = RXf_POSTMATCH; goto maybegetparen; case '&': do_match: - paren = 0; + paren = RXf_MATCH; goto maybegetparen; case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': @@ -2235,15 +2235,15 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) goto do_match; case '`': /* ${^PREMATCH} caught below */ do_prematch: - paren = -2; + paren = RXf_PREMATCH; goto setparen; case '\'': /* ${^POSTMATCH} caught below */ do_postmatch: - paren = -1; + paren = RXf_POSTMATCH; goto setparen; case '&': do_match: - paren = 0; + paren = RXf_MATCH; goto setparen; case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': |