Remove duplicately applied patch shards.

[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 fe76499..dd14617 100644 (file)
--- a/t/lib/st-store.t
+++ b/t/lib/st-store.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';
 }
 
@@ -47,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);
 
@@ -109,6 +114,6 @@ print "not " unless $@;
 print "ok 20\n";
 
 close OUT;
-END { unlink 'store' }
+END { 1 while unlink 'store' }