Craig A. Berry [Sun, 8 Jan 2006 13:33:43 +0000 (13:33 +0000)]
p4raw-id: //depot/perl@26710
use Test::More;
BEGIN {
- if ($^O eq 'MSWin32') {
- plan skip_all => "Not portable on Win32\n";
+ if ($^O eq 'MSWin32' || $^O eq 'VMS') {
+ plan skip_all => "Not portable on Win32 or VMS\n";
}
else {
plan tests => 15;