This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Clean up CBuilder and ParseXS test files
authorSteve Hay <SteveHay@planit.com>
Thu, 29 Sep 2005 08:47:26 +0000 (08:47 +0000)
committerSteve Hay <SteveHay@planit.com>
Thu, 29 Sep 2005 08:47:26 +0000 (08:47 +0000)
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

lib/ExtUtils/CBuilder.pm
lib/ExtUtils/CBuilder/t/01-basic.t
lib/ExtUtils/CBuilder/t/02-link.t
lib/ExtUtils/ParseXS.pm
lib/ExtUtils/ParseXS/t/basic.t

index f137a00..3063a81 100644 (file)
@@ -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
index b13f4d0..9f14e8f 100644 (file)
@@ -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;
index ccfe4ee..604e474 100644 (file)
@@ -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;
index adad27f..6167b2e 100644 (file)
@@ -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
index 520b877..9b5319e 100644 (file)
@@ -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;