malloc.c tweaks

[perl5.git] / t / op / die_exit.t

diff --git a/t/op/die_exit.t b/t/op/die_exit.t
index b5760d6..ffbb1e0 100755 (executable)
--- 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);