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

diff --git a/gv.c b/gv.c
index a75203b..f0f2145 100644 (file)
--- 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;
        }

diff --git a/perl.c b/perl.c
index 7acf664..3090375 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -4721,11 +4721,6 @@ S_init_postdump_symbols(pTHX_ register int argc, register char **argv, register
     if (PL_minus_a) {
       (void) get_av("main::F", TRUE | GV_ADDMULTI);
     }
-    /* touch @- and @+ arrays to prevent spurious warnings 20020415 MJD */
-    /* (but don't load the glob, since that requires loading
-     * re::Tie::Hash::NamedCapture, and miniperl can't do that */
-    (void) hv_fetch(PL_defstash, "-", 1, GV_ADDMULTI);
-    (void) hv_fetch(PL_defstash, "+", 1, GV_ADDMULTI);
 }
 
 STATIC void

diff --git a/toke.c b/toke.c
index 5c4e4e2..c862b16 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -6987,7 +6987,11 @@ S_pending_ident(pTHX)
     if (pit == '@' && PL_lex_state != LEX_NORMAL && !PL_lex_brackets) {
         GV *gv = gv_fetchpv(PL_tokenbuf+1, 0, SVt_PVAV);
         if ((!gv || ((PL_tokenbuf[0] == '@') ? !GvAV(gv) : !GvHV(gv)))
-             && ckWARN(WARN_AMBIGUOUS))
+               && ckWARN(WARN_AMBIGUOUS)
+               /* DO NOT warn for @- and @+ */
+               && !( PL_tokenbuf[2] == '\0' &&
+                   ( PL_tokenbuf[1] == '-' || PL_tokenbuf[1] == '+' ))
+          )
         {
             /* Downgraded from fatal to warning 20000522 mjd */
             Perl_warner(aTHX_ packWARN(WARN_AMBIGUOUS),