From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 8 Nov 2000 14:21:08 +0000 (+0000)
Subject: Try to avoid flockless and emulationless places.
X-Git-Tag: accepted/trunk/20130322.191538~33708
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=9bdf8ebc7de42fae68e9eb79f97d31932fb3a34f;p=platform%2Fupstream%2Fperl.git

Try to avoid flockless and emulationless places.

p4raw-id: //depot/perl@7601
---

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