From f567092be6d7737ea96c13c4f1f37e9234e6c024 Mon Sep 17 00:00:00 2001
From: "Peter J. Farley III" <pjfarley@banet.net>
Date: Sun, 22 Oct 2000 16:00:00 -0400
Subject: Avoid Storable locking on DJGPP for now.

Subject: [PATCH] Re: [ID 20001020.009] Not OK: perl v5.7.0 +DEVEL7368 on dos-djgpp djgpp
Message-Id: <4.3.1.0.20001022194247.00acfee0@pop5.banet.net>

p4raw-id: //depot/perl@7409
---
 t/lib/st-lock.t | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 't')

diff --git a/t/lib/st-lock.t b/t/lib/st-lock.t
index 28fe66490e..1e6ae63ce9 100644
--- a/t/lib/st-lock.t
+++ b/t/lib/st-lock.t
@@ -12,7 +12,7 @@
 
 sub BEGIN {
     chdir('t') if -d 't';
-    @INC = '.'; 
+    @INC = '.';
     push @INC, '../lib';
     require Config; import Config;
     if ($Config{'extensions'} !~ /\bStorable\b/) {
@@ -23,6 +23,10 @@ sub BEGIN {
         print "1..0 # Skip: no flock or flock emulation on this platform\n";
         exit 0;
     }
+    if ($Config{'osname'} eq 'dos') {
+	print "1..0 # Skip: fcntl/flock emulation broken on this platform\n";
+	exit 0;
+    }
     require 'lib/st-dump.pl';
 }
 
-- 
cgit v1.2.1