|
 |
4dad76 |
From d8422270033e0728e6a9cecb24cdbd123656e367 Mon Sep 17 00:00:00 2001
|
|
|
4dad76 |
From: Tony Cook <tony@develop-help.com>
|
|
|
4dad76 |
Date: Mon, 17 Jun 2019 11:46:00 +1000
|
|
|
4dad76 |
Subject: [PATCH] (perl #134193) make the varname match the %[+-] names
|
|
|
4dad76 |
MIME-Version: 1.0
|
|
|
4dad76 |
Content-Type: text/plain; charset=UTF-8
|
|
|
4dad76 |
Content-Transfer-Encoding: 8bit
|
|
|
4dad76 |
|
|
|
4dad76 |
when loading Tie/Hash/NamedCapture.pm for the long name variants
|
|
|
4dad76 |
|
|
|
4dad76 |
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
|
|
4dad76 |
---
|
|
|
4dad76 |
gv.c | 4 ++--
|
|
|
4dad76 |
1 file changed, 2 insertions(+), 2 deletions(-)
|
|
|
4dad76 |
|
|
|
4dad76 |
diff --git a/gv.c b/gv.c
|
|
|
4dad76 |
index 2b83680898..652f5e737d 100644
|
|
|
4dad76 |
--- a/gv.c
|
|
|
4dad76 |
+++ b/gv.c
|
|
|
4dad76 |
@@ -2032,11 +2032,11 @@ S_gv_magicalize(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len,
|
|
|
4dad76 |
sv_magic(MUTABLE_SV(av), (SV*)n, PERL_MAGIC_regdata, NULL, 0);
|
|
|
4dad76 |
SvREADONLY_on(av);
|
|
|
4dad76 |
|
|
|
4dad76 |
- require_tie_mod_s(gv, '-', "Tie::Hash::NamedCapture",0);
|
|
|
4dad76 |
+ require_tie_mod_s(gv, '+', "Tie::Hash::NamedCapture",0);
|
|
|
4dad76 |
|
|
|
4dad76 |
} else /* %{^CAPTURE_ALL} */
|
|
|
4dad76 |
if (memEQs(name, len, "\003APTURE_ALL")) {
|
|
|
4dad76 |
- require_tie_mod_s(gv, '+', "Tie::Hash::NamedCapture",0);
|
|
|
4dad76 |
+ require_tie_mod_s(gv, '-', "Tie::Hash::NamedCapture",0);
|
|
|
4dad76 |
}
|
|
|
4dad76 |
break;
|
|
|
4dad76 |
case '\005': /* $^ENCODING */
|
|
|
4dad76 |
--
|
|
|
4dad76 |
2.20.1
|
|
|
4dad76 |
|