From: Bram <perl-rt@wizbit.be>
Date: Sun, 10 Aug 2008 10:59:16 +0000 (-0700)
Subject: [perl #52740] [PATCH-tests] crash when localizing a symtab entry
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=07a28ea7fedd308f0ccac00940bfc1b314e01e37;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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 *@;