From 73bd57524a80a46826a5a71e1b34305df7471e09 Mon Sep 17 00:00:00 2001
From: Christopher Faylor <me@cgf.cx>
Date: Sun, 12 Apr 2009 05:11:08 +0000
Subject: * speclib: Initial stab at cleaning up temp files.  More work needed.
 * mkimport: Ditto.

---
 winsup/cygwin/speclib | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'winsup/cygwin/speclib')

diff --git a/winsup/cygwin/speclib b/winsup/cygwin/speclib
index 80ef23301..80744083a 100755
--- a/winsup/cygwin/speclib
+++ b/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;
-- 
cgit v1.2.3