This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
applied suggested patch, modulo already applied parts
[perl5.git] / t / pragma / warn / pp_sys
index 7588827..8f2c255 100644 (file)
@@ -113,7 +113,7 @@ ghi
 .
 $= = 1 ;
 $- =1 ;
 .
 $= = 1 ;
 $- =1 ;
-open STDOUT, ">/dev/null" ;
+open STDOUT, ">".($^O eq 'VMS'? 'NL:' : '/dev/null') ;
 write ;
 EXPECT
 page overflow at - line 13.
 write ;
 EXPECT
 page overflow at - line 13.