From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 4 Jan 2001 21:51:05 +0000 (+0000)
Subject: The test didn't work under the core test framework.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c8c31c49d66ff05748e2d594bccedabe9474c2ed;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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);