p4raw-id: //depot/perl@13714
if ($^O =~ /cygwin/i) {
plan tests => 17;
} else {
- plan skip_all => "This is not $^O";
+ plan skip_all => "This is not cygwin";
}
}
# is unlikely to be installed on non VMS machines
# (although not impossible: no xs, no sys$parse(), pure perl).
else {
- plan( skip_all => "This is not $^O" );
+ plan( skip_all => "This is not VMS" );
}
}