* speclib: Initial stab at cleaning up temp files. More work needed.

* mkimport: Ditto.

winsup/cygwin/ChangeLog

@@ -1,3 +1,8 @@
+2009-04-12  Christopher Faylor  <[email protected]>
+
+	* speclib: Initial stab at cleaning up temp files.  More work needed.
+	* mkimport: Ditto.
+
 2009-04-12  Christopher Faylor  <[email protected]>
 
 	* Makefile.in (clean): Clean globals.h.

winsup/cygwin/mkimport

@@ -77,4 +77,6 @@ for my $f (keys %text) {
 }
 
 unlink $libdll;
-exec $ar, 'crus', $libdll, glob('*.o'), @ARGV;
+system $ar, 'crus', $libdll, glob('*.o'), @ARGV;
+unlink glob('*.o');
+exit 1 if $?;

winsup/cygwin/speclib

@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 use Getopt::Long;
-use File::Temp qw'tempdir';
+use File::Temp;
 use File::Basename;
 use File::Spec;
 use strict;
@@ -43,11 +43,14 @@ close $nm_fd;
 
 %extract or die "$0: couldn't find symbols for $lib\n";
 
-my $dir = tempdir(CLEANUP => 1);
+my $dir = File::Temp->newdir();
 
 chdir $dir;
 # print join(' ', '+', $ar, 'x', sort keys %extract), "\n";
 my $res = system $ar, 'x', $libdll, sort keys %extract;
 die "$0: $ar extraction exited with non-zero status\n" if $res;
 unlink $lib;
-exec $ar, 'crus', $lib, sort keys %extract;
+$res = system $ar, 'crus', $lib, sort keys %extract;
+unlink keys %extract;
+die "$0: ar creation of $lib exited with non-zero status\n" if $res;
+exit 0;