since the upgrade at #33263
p4raw-id: //depot/perl@33339
use File::Basename ();
use vars qw($VERSION @ISA);
-$VERSION = '0.22';
+$VERSION = '0.22_01';
$VERSION = eval $VERSION;
# Okay, this is the brute-force method of finding out what kind of
}
my @words = $b->split_like_shell(' foo bar');
-ok @words, 2;
-ok $words[0], 'foo';
-ok $words[1], 'bar';
+if ($^O eq 'MSWin32') {
+ ok @words, 1;
+ ok $words[0], ' foo bar';
+ skip 'No splitting in split_like_shell() on Win32';
+}
+else {
+ ok @words, 2;
+ ok $words[0], 'foo';
+ ok $words[1], 'bar';
+}