X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FStorable%2Ft%2Fstore.t;h=b09b125c0d7077de54285b8756614ae54f02fc12;hb=d1e4d418969ad3c5103f26f33d0abea5b1570935;hp=d26755f12924f839463b1d7deceda84db143dd8b;hpb=b695f709e8a342e35e482b0437eb6cdacdc58b6b;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/Storable/t/store.t b/ext/Storable/t/store.t
index d26755f..b09b125 100644
--- 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' }