diff options
| author | Tony Cook <tony@develop-help.com> | 2019-06-17 11:46:00 +1000 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2019-06-19 14:22:10 +1000 |
| commit | d8422270033e0728e6a9cecb24cdbd123656e367 (patch) | |
| tree | e9e4f26da94f7306608b2537098120cb85f0bd59 /gv.c | |
| parent | 22f05786af0b7f963440e47908cd5f35cf074c12 (diff) | |
| download | perl-d8422270033e0728e6a9cecb24cdbd123656e367.tar.gz | |
(perl #134193) make the varname match the %[+-] names
when loading Tie/Hash/NamedCapture.pm for the long name variants
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2032,11 +2032,11 @@ S_gv_magicalize(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len, sv_magic(MUTABLE_SV(av), (SV*)n, PERL_MAGIC_regdata, NULL, 0); SvREADONLY_on(av); - require_tie_mod_s(gv, '-', "Tie::Hash::NamedCapture",0); + require_tie_mod_s(gv, '+', "Tie::Hash::NamedCapture",0); } else /* %{^CAPTURE_ALL} */ if (memEQs(name, len, "\003APTURE_ALL")) { - require_tie_mod_s(gv, '+', "Tie::Hash::NamedCapture",0); + require_tie_mod_s(gv, '-', "Tie::Hash::NamedCapture",0); } break; case '\005': /* $^ENCODING */ |