From d5def04a105732549b5041df2f6814db76560c66 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 24 Oct 2006 21:58:13 +0000 Subject: (extract_header) try harder to create a temporary directory (mktemp sometimes failed) --- rpmdrake | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/rpmdrake b/rpmdrake index a867eaba..33bed85f 100755 --- a/rpmdrake +++ b/rpmdrake @@ -471,8 +471,13 @@ sub extract_header { warn "Warning, hdlist seems corrupted\n"; goto header_non_available; }; - my $headersdir = chomp_(`mktemp -d /tmp/rpmdrake.XXXXXX`); - -d $headersdir or die "Could not create temporary directory"; + my ($headersdir, $retries); + while (!-d $headersdir && $retries < 5) { + $headersdir = chomp_(`mktemp -d /tmp/rpmdrake.XXXXXXXX`); + $retries++; + -d $headersdir or warn qq(Could not create temporary directory "$headersdir"); + } + -d $headersdir or die qq(Could not create temporary directory "$headersdir"); $packer->extract_archive($headersdir, $p->header_filename); $p->update_header("$headersdir/" . $p->header_filename) or do { warn "Warning, could not extract header!"; -- cgit v1.2.1