Change 33339 by [EMAIL PROTECTED] on 2008/02/21 13:38:57
Fix CBuilder test that has been failing on Win32
since the upgrade at #33263
Affected files ...
... //depot/perl/lib/ExtUtils/CBuilder.pm#13 edit
... //depot/perl/lib/ExtUtils/CBuilder/t/01-basic.t#7 edit
Differences ...
==== //depot/perl/lib/ExtUtils/CBuilder.pm#13 (text) ====
Index: perl/lib/ExtUtils/CBuilder.pm
--- perl/lib/ExtUtils/CBuilder.pm#12~33263~ 2008-02-08 23:18:35.000000000
-0800
+++ perl/lib/ExtUtils/CBuilder.pm 2008-02-21 05:38:57.000000000 -0800
@@ -5,7 +5,7 @@
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
==== //depot/perl/lib/ExtUtils/CBuilder/t/01-basic.t#7 (text) ====
Index: perl/lib/ExtUtils/CBuilder/t/01-basic.t
--- perl/lib/ExtUtils/CBuilder/t/01-basic.t#6~25652~ 2005-09-29
01:47:26.000000000 -0700
+++ perl/lib/ExtUtils/CBuilder/t/01-basic.t 2008-02-21 05:38:57.000000000
-0800
@@ -53,6 +53,13 @@
}
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';
+}
End of Patch.
