The test didn't work under the core test framework.

p4raw-id: //depot/perl@8321

diff --git a/t/lib/st-lock.t b/t/lib/st-lock.t
index 1faf082..77d73bb 100644 (file)
--- a/t/lib/st-lock.t
+++ b/t/lib/st-lock.t
@@ -29,18 +29,18 @@ sub BEGIN {
         exit 0;
     }
 
-    use Storable qw(lock_store lock_retrieve);
-
-    unless (&Storable::CAN_FLOCK) {
-       print "1..0 # Skip: fcntl/flock emulation broken on this platform\n";
-       exit 0;
-    }
-
     require 'lib/st-dump.pl';
 }
 
 sub ok;
 
+use Storable qw(lock_store lock_retrieve);
+
+unless (&Storable::CAN_FLOCK) {
+    print "1..0 # Skip: fcntl/flock emulation broken on this platform\n";
+       exit 0;
+}
+
 print "1..5\n";
 
 @a = ('first', undef, 3, -4, -3.14159, 456, 4.5);