diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-08 14:21:08 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-08 14:21:08 +0000 |
| commit | 9bdf8ebc7de42fae68e9eb79f97d31932fb3a34f (patch) | |
| tree | 164fb9859a65c7d9876a61f3dad01386fe650fa3 /t | |
| parent | 3a6a83338346f08d1517e4a410cc7d1ebc4040ec (diff) | |
| download | perl-9bdf8ebc7de42fae68e9eb79f97d31932fb3a34f.tar.gz | |
Try to avoid flockless and emulationless places.
p4raw-id: //depot/perl@7601
Diffstat (limited to 't')
| -rw-r--r-- | t/pragma/warn/pp_sys | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/pragma/warn/pp_sys b/t/pragma/warn/pp_sys index 2843c70ed3..6ba616f067 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 |