From: Ævar Arnfjörð Bjarmason <avar@cpan.org>
Date: Thu, 10 May 2007 02:24:48 +0000 (+0000)
Subject: Small fix to a previous patch on magic $<digit> variables.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=104a8018a78d3956ea3ab53f0abbda41773a7f35;p=p5sagit%2Fp5-mst-13.2.git

Small fix to a previous patch on magic $<digit> variables.

Subject: [PATCH]
From: "Ævar Arnfjörð Bjarmason" <avarab@gmail.com>
Message-ID: <51dd1af80705091924q77c2ca23n30359779b96ab909@mail.gmail.com>

p4raw-id: //depot/perl@31190
---

diff --git a/mg.c b/mg.c
index d937c16..200da51 100644
--- a/mg.c
+++ b/mg.c
@@ -2242,6 +2242,7 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg)
       goto setparen;
     case '1': case '2': case '3': case '4':
     case '5': case '6': case '7': case '8': case '9':
+      paren = atoi(mg->mg_ptr);
       setparen:
 	if (PL_curpm && (rx = PM_GETRE(PL_curpm))) {
             CALLREG_NUMBUF_STORE((REGEXP * const)rx,paren,sv);