The #6759 wasn't quite right.

p4raw-id: //depot/perl@6761

diff --git a/t/lib/st-06compat.t b/t/lib/st-06compat.t
index 932dbac..7c89c83 100644 (file)
--- a/t/lib/st-06compat.t
+++ b/t/lib/st-06compat.t
@@ -14,12 +14,12 @@
 
 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;
     }
-    unshift @INC, '../lib';
     require 'lib/st-dump.pl';
 }
 

diff --git a/t/lib/st-blessed.t b/t/lib/st-blessed.t
index b673240..d0296cb 100644 (file)
--- a/t/lib/st-blessed.t
+++ b/t/lib/st-blessed.t
@@ -14,12 +14,12 @@
 
 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;
     }
-    unshift @INC, '../lib';
     require 'lib/st-dump.pl';
 }
 

diff --git a/t/lib/st-canonical.t b/t/lib/st-canonical.t
index 67a2348..3eeed14 100644 (file)
--- a/t/lib/st-canonical.t
+++ b/t/lib/st-canonical.t
@@ -14,12 +14,12 @@
 
 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;
     }
-    unshift @INC, '../lib';
 }
 
 

diff --git a/t/lib/st-dclone.t b/t/lib/st-dclone.t
index ee7d8ad..01ba551 100644 (file)
--- a/t/lib/st-dclone.t
+++ b/t/lib/st-dclone.t
@@ -14,12 +14,12 @@
 
 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;
     }
-    unshift @INC, '../lib';
     require 'lib/st-dump.pl';
 }
 

diff --git a/t/lib/st-forgive.t b/t/lib/st-forgive.t
index a709ce0..fd5204f 100644 (file)
--- a/t/lib/st-forgive.t
+++ b/t/lib/st-forgive.t
@@ -20,12 +20,12 @@
 
 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;
     }
-    unshift @INC, '../lib';
 }
 
 use Storable qw(store retrieve);

diff --git a/t/lib/st-freeze.t b/t/lib/st-freeze.t
index 1ea1e69..8dde28f 100644 (file)
--- a/t/lib/st-freeze.t
+++ b/t/lib/st-freeze.t
@@ -14,12 +14,12 @@
 
 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;
     }
-    unshift @INC, '../lib';
     require 'lib/st-dump.pl';
 }
 

diff --git a/t/lib/st-overload.t b/t/lib/st-overload.t
index 6482237..cb6a83e 100644 (file)
--- a/t/lib/st-overload.t
+++ b/t/lib/st-overload.t
@@ -14,12 +14,12 @@
 
 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;
     }
-    unshift @INC, '../lib';
     require 'lib/st-dump.pl';
 }
 

diff --git a/t/lib/st-recurse.t b/t/lib/st-recurse.t
index 3688fd4..ebaeba7 100644 (file)
--- a/t/lib/st-recurse.t
+++ b/t/lib/st-recurse.t
@@ -14,12 +14,12 @@
 
 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;
     }
-    unshift @INC, '../lib';
     require 'lib/st-dump.pl';
 }
 

diff --git a/t/lib/st-retrieve.t b/t/lib/st-retrieve.t
index 7e4f0ca..b38904a 100644 (file)
--- a/t/lib/st-retrieve.t
+++ b/t/lib/st-retrieve.t
@@ -14,12 +14,12 @@
 
 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;
     }
-    unshift @INC, '../lib';
     require 'lib/st-dump.pl';
 }
 

diff --git a/t/lib/st-store.t b/t/lib/st-store.t
index 19f6ddf..c49a71d 100644 (file)
--- a/t/lib/st-store.t
+++ b/t/lib/st-store.t
@@ -14,12 +14,12 @@
 
 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;
     }
-    unshift @INC, '../lib';
     require 'lib/st-dump.pl';
 }
 

diff --git a/t/lib/st-tied.t b/t/lib/st-tied.t
index b57c8f9..dc6f81c 100644 (file)
--- a/t/lib/st-tied.t
+++ b/t/lib/st-tied.t
@@ -17,12 +17,12 @@
 
 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;
     }
-    unshift @INC, '../lib';
     require 'lib/st-dump.pl';
 }
 

diff --git a/t/lib/st-tiedhook.t b/t/lib/st-tiedhook.t
index 26c8e07..a32a50d 100644 (file)
--- a/t/lib/st-tiedhook.t
+++ b/t/lib/st-tiedhook.t
@@ -14,12 +14,12 @@
 
 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;
     }
-    unshift @INC, '../lib';
     require 'lib/st-dump.pl';
 }
 

diff --git a/t/lib/st-tieditems.t b/t/lib/st-tieditems.t
index a712980..3e32927 100644 (file)
--- a/t/lib/st-tieditems.t
+++ b/t/lib/st-tieditems.t
@@ -21,12 +21,12 @@
 
 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;
     }
-    unshift @INC, '../lib';
     require 'lib/st-dump.pl';
 }