Be portable.

[p5sagit/p5-mst-13.2.git] / t / lib / st-store.t

diff --git a/t/lib/st-store.t b/t/lib/st-store.t
index c49a71d..dd14617 100644 (file)
--- a/t/lib/st-store.t
+++ b/t/lib/st-store.t
@@ -52,7 +52,7 @@ print "ok 4\n";
 print "not " unless $got eq $dumped; 
 print "ok 5\n";
 
-unlink 'store';
+1 while unlink 'store';
 
 package FOO; @ISA = qw(Storable);
 
@@ -114,6 +114,6 @@ print "not " unless $@;
 print "ok 20\n";
 
 close OUT;
-END { unlink 'store' }
+END { 1 while unlink 'store' }