diff options
| author | Ævar Arnfjörð Bjarmason <avar@cpan.org> | 2007-05-01 23:58:44 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-05-03 16:04:13 +0000 |
| commit | 2fdbfb4d61a8af78322ced14c20952a7b3b5761a (patch) | |
| tree | a16d75433a82aa96548a78f6a4ac72c35407ef8a /universal.c | |
| parent | b37a2be91b1cd1281f2d8e07198077524e9e18c5 (diff) | |
| download | perl-2fdbfb4d61a8af78322ced14c20952a7b3b5761a.tar.gz | |
FETCH/STORE/LENGTH callbacks for numbered capture variables
From: "Ævar Arnfjörð Bjarmason" <avarab@gmail.com>
Message-ID: <51dd1af80705011658g1156e14cw4d2b21a8d772ed41@mail.gmail.com>
p4raw-id: //depot/perl@31130
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/universal.c b/universal.c index 9b0e12b2e8..ef73504535 100644 --- a/universal.c +++ b/universal.c @@ -1101,7 +1101,7 @@ XS(XS_re_regname) } { if (SvPOK(sv) && re && re->paren_names) { - bufs = CALLREG_NAMEDBUF(re,sv,all && SvTRUE(all)); + bufs = CALLREG_NAMEDBUF_FETCH(re,sv,all && SvTRUE(all)); if (bufs) { if (all && SvTRUE(all)) XPUSHs(newRV(bufs)); |