This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
add test for change #22746 ([perl #29102] Crash on assign to lex fh)
authorDave Mitchell <davem@fdisolutions.com>
Mon, 3 May 2004 21:07:44 +0000 (21:07 +0000)
committerDave Mitchell <davem@fdisolutions.com>
Mon, 3 May 2004 21:07:44 +0000 (21:07 +0000)
p4raw-link: @22746 on //depot/perl: 8f3c2c0cb1ce993e7d37b84cf6256c76fd3a298a

p4raw-id: //depot/perl@22778

t/io/open.t

index 1871854..5e1b5ec 100755 (executable)
@@ -12,7 +12,7 @@ use Config;
 $Is_VMS = $^O eq 'VMS';
 $Is_MacOS = $^O eq 'MacOS';
 
 $Is_VMS = $^O eq 'VMS';
 $Is_MacOS = $^O eq 'MacOS';
 
-plan tests => 106;
+plan tests => 107;
 
 my $Perl = which_perl();
 
 
 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_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');