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;