Integrate mainline

[p5sagit/p5-mst-13.2.git] / t / op / anonsub.t

diff --git a/t/op/anonsub.t b/t/op/anonsub.t
index fef40f9..8eca75b 100755 (executable)
--- a/t/op/anonsub.t
+++ b/t/op/anonsub.t
@@ -26,7 +26,7 @@ for (@prgs){
     my($prog,$expected) = split(/\nEXPECT\n/, $_);
     open TEST, ">$tmpfile";
     print TEST "$prog\n";
-    close TEST;
+    close TEST or die "Could not close: $!";
     my $results = $Is_VMS ?
                `MCR $^X "-I[-.lib]" $switch $tmpfile 2>&1` :
                  $Is_MSWin32 ?