Be portable.

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

diff --git a/t/lib/st-retrieve.t b/t/lib/st-retrieve.t
index b38904a..2aec8f5 100644 (file)
--- a/t/lib/st-retrieve.t
+++ b/t/lib/st-retrieve.t
@@ -73,5 +73,5 @@ print "ok 13\n";
 print "not " if length $root->[1];
 print "ok 14\n";
 
-END { unlink 'store', 'nstore' }
+END { 1 while unlink('store', 'nstore') }