From: Dave Mitchell <davem@fdisolutions.com>
Date: Mon, 3 May 2004 21:07:44 +0000 (+0000)
Subject: add test for change #22746 ([perl #29102] Crash on assign to lex fh)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ba2ce82289ea4b88b8370b28475c99b2c5c26d53;p=p5sagit%2Fp5-mst-13.2.git

add test for change #22746 ([perl #29102] Crash on assign to lex fh)
p4raw-link: @22746 on //depot/perl: 8f3c2c0cb1ce993e7d37b84cf6256c76fd3a298a

p4raw-id: //depot/perl@22778
---

diff --git a/t/io/open.t b/t/io/open.t
index 1871854..5e1b5ec 100755
--- a/t/io/open.t
+++ b/t/io/open.t
@@ -12,7 +12,7 @@ use Config;
 $Is_VMS = $^O eq 'VMS';
 $Is_MacOS = $^O eq 'MacOS';
 
-plan tests => 106;
+plan tests => 107;
 
 my $Perl = which_perl();
 
@@ -311,3 +311,7 @@ SKIP: {
 fresh_perl_like('open m', qr/^Search pattern not terminated at/,
 	{ stderr => 1 }, 'open m test');
 
+fresh_perl_is(
+    'sub f { open(my $fh, "xxx"); $fh = "f"; } f; f;print "ok"',
+    'ok', { stderr => 1 },
+    '#29102: Crash on assignment to lexical filehandle');