[perl #52740] [PATCH-tests] crash when localizing a symtab entry

From: "Bram via RT" <perlbug-followup@perl.org>
Message-ID: <rt-3.6.HEAD-29759-1218391153-38.52740-15-0@perl.org>

p4raw-id: //depot/perl@34198

diff --git a/t/op/local.t b/t/op/local.t
index ee250e1..011e543 100755 (executable)
--- a/t/op/local.t
+++ b/t/op/local.t
@@ -5,7 +5,7 @@ BEGIN {
     @INC = qw(. ../lib);
     require './test.pl';
 }
-plan tests => 122;
+plan tests => 123;
 
 my $list_assignment_supported = 1;
 
@@ -451,6 +451,11 @@ sub f { ok(0 == $[); }
     is($h{'k1'},111);
 }
 
+like( runperl(stderr => 1,
+              prog => 'use constant foo => q(a);' .
+                      'index(q(a), foo);' .
+                      'local *g=${::}{foo};print "ok";'), "ok", "[perl #52740]");
+
 # Keep this test last, as it can SEGV
 {
     local *@;