cleaner close on tests, take 2

[p5sagit/p5-mst-13.2.git] / t / run / switches.t

diff --git a/t/run/switches.t b/t/run/switches.t
index 67331b6..f920f37 100644 (file)
--- a/t/run/switches.t
+++ b/t/run/switches.t
@@ -77,7 +77,7 @@ INIT  { print "block 3\n"; }
        print "block 4\n";
 END   { print "block 5\n"; }
 SWTEST
-    close $f;
+    close $f or die "Could not close: $!";
     $r = runperl(
        switches        => [ '-c' ],
        progfile        => $filename,
@@ -122,7 +122,7 @@ SKIP: {
 #!perl -s
 print $x
 SWTEST
-    close $f;
+    close $f or die "Could not close: $!";
     $r = runperl(
        switches    => [ '-s' ],
        progfile    => $filename,
@@ -142,7 +142,7 @@ package swtest;
 sub import { print map "<$_>", @_ }
 1;
 SWTESTPM
-    close $f;
+    close $f or die "Could not close: $!";
     $r = runperl(
        switches    => [ '-Mswtest' ],
        prog        => '1',