From: Steve Hay <SteveHay@planit.com>
Date: Thu, 21 Feb 2008 13:38:57 +0000 (+0000)
Subject: Fix CBuilder test that has been failing on Win32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=69587ea4ebddc26e6ca65212ffe9f5b6679a80da;p=p5sagit%2Fp5-mst-13.2.git

Fix CBuilder test that has been failing on Win32
since the upgrade at #33263

p4raw-id: //depot/perl@33339
---

diff --git a/lib/ExtUtils/CBuilder.pm b/lib/ExtUtils/CBuilder.pm
index 077fecd..209200d 100644
--- a/lib/ExtUtils/CBuilder.pm
+++ b/lib/ExtUtils/CBuilder.pm
@@ -5,7 +5,7 @@ use File::Path ();
 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
diff --git a/lib/ExtUtils/CBuilder/t/01-basic.t b/lib/ExtUtils/CBuilder/t/01-basic.t
index 9f14e8f..869350e 100644
--- a/lib/ExtUtils/CBuilder/t/01-basic.t
+++ b/lib/ExtUtils/CBuilder/t/01-basic.t
@@ -53,6 +53,13 @@ for ($source_file, $object_file, $lib_file) {
 }
 
 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';
+}