cleaner close on tests, take 2

[p5sagit/p5-mst-13.2.git] / ext / Storable / t / store.t

diff --git a/ext/Storable/t/store.t b/ext/Storable/t/store.t
index d26755f..b09b125 100644 (file)
--- a/ext/Storable/t/store.t
+++ b/ext/Storable/t/store.t
@@ -113,7 +113,7 @@ eval { $r = fd_retrieve(::OUT); };
 print "not " unless $@;
 print "ok 20\n";
 
-close OUT;
+close OUT or die "Could not close: $!";
 END { 1 while unlink 'store' }