cleaner close on tests, take 2

[p5sagit/p5-mst-13.2.git] / t / lib / filter-util.pl

diff --git a/t/lib/filter-util.pl b/t/lib/filter-util.pl
index 826d853..c378f22 100644 (file)
--- a/t/lib/filter-util.pl
+++ b/t/lib/filter-util.pl
@@ -25,7 +25,7 @@ sub writeFile
     binmode(F) if $filename =~ /bin$/i;
     foreach (@strings)
       { print F }
-    close F ;
+    close F or die "Could not close: $!" ;
 }
 
 sub ok