diff options
author | Bram <perl-rt@wizbit.be> | 2008-08-10 03:59:16 -0700 |
---|---|---|
committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2008-08-11 12:29:46 +0000 |
commit | 07a28ea7fedd308f0ccac00940bfc1b314e01e37 (patch) | |
tree | 15c73e0eeb6485866053b71189afe14c05c5b2e3 /t | |
parent | 1c5b513e3fd8bc7a5a38ca94832b9e848ef0301d (diff) | |
download | perl-07a28ea7fedd308f0ccac00940bfc1b314e01e37.tar.gz |
[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
Diffstat (limited to 't')
-rwxr-xr-x | t/op/local.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/t/op/local.t b/t/op/local.t index ee250e111d..011e543d1b 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 *@; |