diff options
| author | Ævar Arnfjörð Bjarmason <avar@cpan.org> | 2007-05-10 02:24:48 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-05-10 08:39:04 +0000 |
| commit | 104a8018a78d3956ea3ab53f0abbda41773a7f35 (patch) | |
| tree | bd24a5fa39fc1655eb238c2a9ee19ebf4506bb6a /mg.c | |
| parent | d0821a6ab8f99abe9cf8554e9f15785beaeb7bb4 (diff) | |
| download | perl-104a8018a78d3956ea3ab53f0abbda41773a7f35.tar.gz | |
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
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -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); |