From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 25 Nov 2001 00:50:10 +0000 (+0000)
Subject: testsuite leaves stray files behind on windows
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9fb8017237b87d57f6fef256e9fdafa7ad727d48;p=p5sagit%2Fp5-mst-13.2.git

testsuite leaves stray files behind on windows

p4raw-id: //depot/perl@13250
---

diff --git a/lib/ExtUtils/Embed.t b/lib/ExtUtils/Embed.t
index 8f4380a..0ceb5e4 100644
--- a/lib/ExtUtils/Embed.t
+++ b/lib/ExtUtils/Embed.t
@@ -17,7 +17,7 @@ print "1..9\n";
 my $cc = $Config{'cc'};
 my $cl  = ($^O eq 'MSWin32' && $cc eq 'cl');
 my $exe = 'embed_test' . $Config{'exe_ext'};
-my $obj = 'embed_test' . $Config{'obj_ext'} if $^O eq 'VMS';
+my $obj = 'embed_test' . $Config{'obj_ext'};
 my $inc = File::Spec->catdir($INC[0],"..");
 my $lib = File::Spec->catdir($INC[0],"..");
 my @cmd;
@@ -95,8 +95,8 @@ $embed_test = "run/nodebug $exe" if $^O eq 'VMS';
 
 $status = system($embed_test);
 print (($status? 'not ':'')."ok 9\n");
-unlink($exe,"embed_test.c");
-unlink($obj,"embed_test.map","embed_test.lis") if $^O eq 'VMS'
+unlink($exe,"embed_test.c",$obj);
+unlink("embed_test.map","embed_test.lis") if $^O eq 'VMS';
 
 # gcc -g -I.. -L../ -o perl_test perl_test.c -lperl `../perl -I../lib -MExtUtils::Embed -I../ -e ccopts -e ldopts`
 
diff --git a/lib/ExtUtils/Mkbootstrap.t b/lib/ExtUtils/Mkbootstrap.t
index 3a8e461..571c158 100644
--- a/lib/ExtUtils/Mkbootstrap.t
+++ b/lib/ExtUtils/Mkbootstrap.t
@@ -140,6 +140,8 @@ SKIP: {
 	like( $file, qr/Wall\n1;\n/ms, 'should write $DynaLoader::bscode if set' );
 }
 
+close IN;
+close OUT;
 
 END {
 	# clean things up, even on VMS
diff --git a/lib/Shell.t b/lib/Shell.t
index a285896..837f6ac 100644
--- a/lib/Shell.t
+++ b/lib/Shell.t
@@ -57,3 +57,4 @@ else
   ok(@files,'Quoted arguments');
 
 }
+open(STDERR,">&SAVERR") ;