applied suggested patch, modulo already applied parts

[p5sagit/p5-mst-13.2.git] / t / pragma / warn / sv

diff --git a/t/pragma/warn/sv b/t/pragma/warn/sv
index 0f1d83c..f453de9 100644 (file)
--- a/t/pragma/warn/sv
+++ b/t/pragma/warn/sv
@@ -181,7 +181,7 @@ Subroutine fred redefined at - line 5.
 ########
 # sv.c
 use warning 'printf' ;
-open F, ">/dev/null" ;
+open F, ">".($^O eq 'VMS'? 'NL:' : '/dev/null') ;
 printf F "%q\n" ;
 my $a = sprintf "%q" ;
 printf F "%" ;