Remove duplicately applied patch shards.

[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 463262f..2aec8f5 100644 (file)
--- a/t/lib/st-retrieve.t
+++ b/t/lib/st-retrieve.t
@@ -15,6 +15,11 @@
 sub BEGIN {
     chdir('t') if -d 't';
     unshift @INC, '../lib';
+    require Config; import Config;
+    if ($Config{'extensions'} !~ /\bStorable\b/) {
+        print "1..0 # Skip: Storable was not built\n";
+        exit 0;
+    }
     require 'lib/st-dump.pl';
 }
 
@@ -68,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') }