summaryrefslogtreecommitdiff
path: root/lib/ExtUtils/CBuilder/t
diff options
context:
space:
mode:
authorSteve Peters <steve@fisharerojo.org>2005-09-29 00:23:44 +0000
committerSteve Peters <steve@fisharerojo.org>2005-09-29 00:23:44 +0000
commit2bd31f1a4a58e1269b235e3660ee031e5b786af9 (patch)
tree61ca43cac5d6a56bad724315d2e3f38b317cd2a7 /lib/ExtUtils/CBuilder/t
parent73ea3450b2c8512de829cec5308e4cbe2a8cd9c5 (diff)
downloadperl-2bd31f1a4a58e1269b235e3660ee031e5b786af9.tar.gz
Upgrade to ExtUtils::CBuilder 0.14
p4raw-id: //depot/perl@25650
Diffstat (limited to 'lib/ExtUtils/CBuilder/t')
-rw-r--r--lib/ExtUtils/CBuilder/t/01-basic.t5
-rw-r--r--lib/ExtUtils/CBuilder/t/02-link.t5
2 files changed, 2 insertions, 8 deletions
diff --git a/lib/ExtUtils/CBuilder/t/01-basic.t b/lib/ExtUtils/CBuilder/t/01-basic.t
index 39c6e5b1a2..b13f4d0bdc 100644
--- a/lib/ExtUtils/CBuilder/t/01-basic.t
+++ b/lib/ExtUtils/CBuilder/t/01-basic.t
@@ -47,10 +47,7 @@ my ($lib, @temps) = $b->link(objects => $object_file,
$lib =~ tr/"'//d;
ok $lib_file, $lib;
-for ($source_file, $lib_file, $object_file) {
- tr/"'//d;
- 1 while unlink;
-}
+unlink $source_file;
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 48a63f08b6..ccfe4ee182 100644
--- a/lib/ExtUtils/CBuilder/t/02-link.t
+++ b/lib/ExtUtils/CBuilder/t/02-link.t
@@ -55,10 +55,7 @@ ok $exe_file;
ok my_system($exe_file), 11;
# Clean up
-for ($source_file, $exe_file, $object_file) {
- tr/"'//d;
- 1 while unlink;
-}
+unlink $source_file;
sub my_system {
my $cmd = shift;