diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 2000-03-02 04:04:52 +0000 |
|---|---|---|
| committer | bailey <bailey@newman.upenn.edu> | 2000-03-02 04:04:52 +0000 |
| commit | 3b558104ccfbe5d3cbad84ed8c394cf1d7aed045 (patch) | |
| tree | 8f7b4d8377e309f96f2e9be1b856bbc3b7b769d7 /t/pragma/warn/pp_sys | |
| parent | 8e8b254b29687c0b0e15d55690a01ac09a7f0f0c (diff) | |
| download | perl-3b558104ccfbe5d3cbad84ed8c394cf1d7aed045.tar.gz | |
MIscellaneous tweaks to test and driver (Charles Lane)
p4raw-id: //depot/vmsperl@5426
Diffstat (limited to 't/pragma/warn/pp_sys')
| -rw-r--r-- | t/pragma/warn/pp_sys | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/t/pragma/warn/pp_sys b/t/pragma/warn/pp_sys index 5808536752..cab1b60298 100644 --- a/t/pragma/warn/pp_sys +++ b/t/pragma/warn/pp_sys @@ -195,6 +195,16 @@ syswrite() on closed filehandle main::STDIN at - line 6. (Are you trying to call syswrite() on dirhandle main::STDIN?) ######## # pp_sys.c [pp_flock] +use Config; +BEGIN { + if ( $^O eq 'VMS' and ! $Config{d_flock}) { + print <<EOM ; +SKIPPED +# flock not present +EOM + exit ; + } +} use warnings 'closed' ; close STDIN; flock STDIN, 8; |