From 2fdbfb4d61a8af78322ced14c20952a7b3b5761a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=C3=86var=20Arnfj=C3=B6r=C3=B0=20Bjarmason?= Date: Tue, 1 May 2007 23:58:44 +0000 Subject: =?UTF-8?q?FETCH/STORE/LENGTH=20callbacks=20for=20numbered=20captu?= =?UTF-8?q?re=20variables=20From:=20"=C3=86var=20Arnfj=C3=B6r=C3=B0=20Bjar?= =?UTF-8?q?mason"=20=20Message-ID:=20<51dd1af80705011658?= =?UTF-8?q?g1156e14cw4d2b21a8d772ed41@mail.gmail.com>?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit p4raw-id: //depot/perl@31130 --- universal.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'universal.c') 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)); -- cgit v1.2.1