(extract_header) try harder to create a temporary directory (mktemp

sometimes failed)

1 files 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!";