diff options
author | Steve Peters <steve@fisharerojo.org> | 2005-09-29 00:23:44 +0000 |
---|---|---|
committer | Steve Peters <steve@fisharerojo.org> | 2005-09-29 00:23:44 +0000 |
commit | 2bd31f1a4a58e1269b235e3660ee031e5b786af9 (patch) | |
tree | 61ca43cac5d6a56bad724315d2e3f38b317cd2a7 /lib/ExtUtils/CBuilder/t | |
parent | 73ea3450b2c8512de829cec5308e4cbe2a8cd9c5 (diff) | |
download | perl-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.t | 5 | ||||
-rw-r--r-- | lib/ExtUtils/CBuilder/t/02-link.t | 5 |
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; |