diff options
| author | Ævar Arnfjörð Bjarmason <avar@cpan.org> | 2007-04-27 02:22:25 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-04-30 08:42:44 +0000 |
| commit | 49d7dfbcef7527d25e8c34643f831ef2416923a3 (patch) | |
| tree | e6aab75bbf4b4b188a44c1c2de72cfcfb77ec33c /pp_hot.c | |
| parent | 8fc8005d410ad8042b6d15ffc54dff4894a7075f (diff) | |
| download | perl-49d7dfbcef7527d25e8c34643f831ef2416923a3.tar.gz | |
Re: [PATCH] Cleanup of the regexp API
From: "Ævar Arnfjörð Bjarmason" <avarab@gmail.com>
Message-ID: <51dd1af80704261922j3db0615wa86ccc4cb65b2713@mail.gmail.com>
p4raw-id: //depot/perl@31106
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1159,7 +1159,7 @@ PP(pp_qr) dVAR; dSP; register PMOP * const pm = cPMOP; REGEXP * rx = PM_GETRE(pm); - SV * const pkg = CALLREG_QRPKG(rx); + SV * const pkg = CALLREG_PACKAGE(rx); SV * const rv = sv_newmortal(); SV * const sv = newSVrv(rv, SvPV_nolen(pkg)); if (rx->extflags & RXf_TAINTED) |