Change 34198 by [EMAIL PROTECTED] on 2008/08/11 12:29:46 Subject: [perl #52740] [PATCH-tests] crash when localizing a symtab entry From: "Bram via RT" <[EMAIL PROTECTED]> Date: Sun, 10 Aug 2008 10:59:16 -0700 Message-ID: <[EMAIL PROTECTED]>
Affected files ... ... //depot/perl/t/op/local.t#39 edit Differences ... ==== //depot/perl/t/op/local.t#39 (xtext) ==== Index: perl/t/op/local.t --- perl/t/op/local.t#38~31615~ 2007-07-16 06:15:37.000000000 -0700 +++ perl/t/op/local.t 2008-08-11 05:29:46.000000000 -0700 @@ -5,7 +5,7 @@ @INC = qw(. ../lib); require './test.pl'; } -plan tests => 122; +plan tests => 123; my $list_assignment_supported = 1; @@ -451,6 +451,11 @@ 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 *@; End of Patch.