Use another method to avoid the "possible interpolation" warning

for @- and @+ : do this directly from the lexer (patch by Yves
Orton.) This way, @- and @+ aren't preloaded anymore.
Avoid to require re::Tie::Hash::NamedCapture when the *- or *+
globs are created, this was breaking the build due to miniperl's
inability to load it.

p4raw-id: //depot/perl@30496

1 files changed, 4 insertions, 1 deletions

diff --git a/gv.c b/gv.c
index a75203bfc7..f0f21459a6 100644
--- a/gv.c
+++ b/gv.c
@@ -1225,7 +1225,10 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags,
             SvREADONLY_on(tie);
             SvREADONLY_on(av);
 
-	    require_tie_mod(gv, name, stashname, "FETCH", 0);
+	    if (sv_type == SVt_PVHV)
+		require_tie_mod(gv, name, stashname, "FETCH", 0);
+	    else
+		SvREFCNT_dec(stashname);
 
 	    break;
 	}