This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix bug #21914, 3-arg open + local $fh + strict coredump.
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 10 Apr 2003 19:25:18 +0000 (19:25 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 10 Apr 2003 19:25:18 +0000 (19:25 +0000)
There used to be a nullstash (%{"<none>::"}) to hold illegal
variables under strict 'vars'. It has been removed by change #17942.
This can lead to segfaults during the parsing, because some illegal
variables might have been discarded before the compilation of the
current statement had completed.
Bug analysis and test case by Enache Adrian.
p4raw-link: @17942 on //depot/perl: de11ba31bba9f0eef0f76239d1d93a010926d6cf

p4raw-id: //depot/perl@19187

gv.c
t/lib/strict/vars

diff --git a/gv.c b/gv.c
index 0bedea4..7d21f02 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -764,8 +764,10 @@ Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, I32 sv_type)
                  : sv_type == SVt_PVAV ? "@"
                  : sv_type == SVt_PVHV ? "%"
                  : ""), name));
+           stash = GvHV(gv_fetchpv("<none>::", GV_ADDMULTI, SVt_PVHV));
        }
-       return Nullgv;
+       else
+           return Nullgv;
     }
 
     if (!SvREFCNT(stash))      /* symbol table under destruction */
index de51707..ab24c9d 100644 (file)
@@ -421,3 +421,12 @@ no warnings;
 EXPECT
 Global symbol "@i_like_crackers" requires explicit package name at - line 7.
 Execution of - aborted due to compilation errors.
+########
+
+# [perl #21914] New bug > 5.8.0. Used to dump core.
+use strict 'vars';
+@k = <$k>;
+EXPECT
+Global symbol "@k" requires explicit package name at - line 4.
+Global symbol "$k" requires explicit package name at - line 4.
+Execution of - aborted due to compilation errors.