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

1 files changed, 5 insertions, 1 deletions

diff --git a/t/io/open.t b/t/io/open.t
index 18718548d6..5e1b5ec80d 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');