summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSteve Hay <SteveHay@planit.com>2005-09-29 08:47:26 +0000
committerSteve Hay <SteveHay@planit.com>2005-09-29 08:47:26 +0000
commit4e96f8e974fb0a5a24dcbed3bfbb9ed3f39c86e8 (patch)
tree2d3c4f74f55926898ea8f373fdd9117a0c6225d3
parent9cd7d3f2b189443c86591a10f8851749f17367d6 (diff)
downloadperl-4e96f8e974fb0a5a24dcbed3bfbb9ed3f39c86e8.tar.gz
Clean up CBuilder and ParseXS test files
This was done once already in change 25222, but then modified in change 25225. The new versions of CBuilder and ParseXS that sync'ed those changes and have now been integrated back into bleadperl missed some bits of change 25225. Try again. p4raw-id: //depot/perl@25652
-rw-r--r--lib/ExtUtils/CBuilder.pm2
-rw-r--r--lib/ExtUtils/CBuilder/t/01-basic.t5
-rw-r--r--lib/ExtUtils/CBuilder/t/02-link.t5
-rw-r--r--lib/ExtUtils/ParseXS.pm2
-rw-r--r--lib/ExtUtils/ParseXS/t/basic.t1
5 files changed, 11 insertions, 4 deletions
diff --git a/lib/ExtUtils/CBuilder.pm b/lib/ExtUtils/CBuilder.pm
index f137a00eb1..3063a81719 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.14';
+$VERSION = '0.14_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 b13f4d0bdc..9f14e8f0a7 100644
--- a/lib/ExtUtils/CBuilder/t/01-basic.t
+++ b/lib/ExtUtils/CBuilder/t/01-basic.t
@@ -47,7 +47,10 @@ my ($lib, @temps) = $b->link(objects => $object_file,
$lib =~ tr/"'//d;
ok $lib_file, $lib;
-unlink $source_file;
+for ($source_file, $object_file, $lib_file) {
+ tr/"'//d;
+ 1 while unlink;
+}
my @words = $b->split_like_shell(' foo bar');
ok @words, 2;
diff --git a/lib/ExtUtils/CBuilder/t/02-link.t b/lib/ExtUtils/CBuilder/t/02-link.t
index ccfe4ee182..604e474134 100644
--- a/lib/ExtUtils/CBuilder/t/02-link.t
+++ b/lib/ExtUtils/CBuilder/t/02-link.t
@@ -55,7 +55,10 @@ ok $exe_file;
ok my_system($exe_file), 11;
# Clean up
-unlink $source_file;
+for ($source_file, $object_file, $exe_file) {
+ tr/"'//d;
+ 1 while unlink;
+}
sub my_system {
my $cmd = shift;
diff --git a/lib/ExtUtils/ParseXS.pm b/lib/ExtUtils/ParseXS.pm
index adad27f9e6..6167b2e06b 100644
--- a/lib/ExtUtils/ParseXS.pm
+++ b/lib/ExtUtils/ParseXS.pm
@@ -17,7 +17,7 @@ my(@XSStack); # Stack of conditionals and INCLUDEs
my($XSS_work_idx, $cpp_next_tmp);
use vars qw($VERSION);
-$VERSION = '2.12';
+$VERSION = '2.12_01';
use vars qw(%input_expr %output_expr $ProtoUsed @InitFileCode $FH $proto_re $Overload $errors $Fallback
$cplusplus $hiertype $WantPrototypes $WantVersionChk $except $WantLineNumbers
diff --git a/lib/ExtUtils/ParseXS/t/basic.t b/lib/ExtUtils/ParseXS/t/basic.t
index 520b8777c8..9b5319e56a 100644
--- a/lib/ExtUtils/ParseXS/t/basic.t
+++ b/lib/ExtUtils/ParseXS/t/basic.t
@@ -64,6 +64,7 @@ if ($b->have_compiler) {
}
}
}
+ 1 while unlink $obj_file;
1 while unlink $lib_file;
} else {
skip "Skipped can't find a C compiler & linker", 1 for 1..7;