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

[H . Merijn Brand]

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.