ensure implicit close on local(*FH) doesn't affect $! and thence $?

p4raw-id: //depot/maint-5.005/perl@1687

1 files changed, 6 insertions, 3 deletions

diff --git a/t/op/die_exit.t b/t/op/die_exit.t
index b5760d6fa0..ffbb1e015e 100755
--- a/t/op/die_exit.t
+++ b/t/op/die_exit.t
@@ -30,6 +30,8 @@ my %tests = (
 	14 => [ 255,   0],
 	15 => [ 255,   1],
 	16 => [ 255, 256],
+	# see if implicit close preserves $?
+	17 => [  42,  42, '{ local *F; open F, q[TEST]; close F } die;'],
 );
 
 my $max = keys %tests;
@@ -37,11 +39,12 @@ my $max = keys %tests;
 print "1..$max\n";
 
 foreach my $test (1 .. $max) {
-    my($bang, $query) = @{$tests{$test}};
+    my($bang, $query, $code) = @{$tests{$test}};
+    $code ||= 'die;';
     my $exit =
 	($^O eq 'MSWin32'
-	 ? system qq($perl -e "\$! = $bang; \$? = $query; die;" 2> nul)
-	 : system qq($perl -e '\$! = $bang; \$? = $query; die;' 2> /dev/null));
+	 ? system qq($perl -e "\$! = $bang; \$? = $query; $code" 2> nul)
+	 : system qq($perl -e '\$! = $bang; \$? = $query; $code' 2> /dev/null));
 
     printf "# 0x%04x  0x%04x  0x%04x\nnot ", $exit, $bang, $query
 	unless $exit == (($bang || ($query >> 8) || 255) << 8);