From 9bdf8ebc7de42fae68e9eb79f97d31932fb3a34f Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 8 Nov 2000 14:21:08 +0000
Subject: [PATCH] Try to avoid flockless and emulationless places.

p4raw-id: //depot/perl@7601
---
 t/pragma/warn/pp_sys | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/t/pragma/warn/pp_sys b/t/pragma/warn/pp_sys
index 2843c70..6ba616f 100644
--- a/t/pragma/warn/pp_sys
+++ b/t/pragma/warn/pp_sys
@@ -203,7 +203,9 @@ syswrite() on closed filehandle STDIN at - line 6.
 # pp_sys.c [pp_flock]
 use Config; 
 BEGIN { 
-  if ( $^O eq 'VMS' and ! $Config{d_flock}) {
+  if ( !$Config{d_flock} &&
+       !$Config{d_fcntl_can_lock} &&
+       !$Config{d_lockf} ) {
     print <<EOM ;
 SKIPPED
 # flock not present
-- 
1.8.3.1