(extract_header) show the actual error while trying to get data from hdlists

1 files changed, 1 insertions, 1 deletions

diff --git a/rpmdrake b/rpmdrake
index 1e990f24..6e3558c9 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -473,7 +473,7 @@ sub extract_header {
 	    my $packer;
          require MDV::Packdrakeng; 
          eval { $packer = MDV::Packdrakeng->open (archive => $hdlist, quit => 1) } or do {
-		    warn "Warning, hdlist seems corrupted\n";
+		    warn "Warning, hdlist seems corrupted ($@)\n";
 		    goto header_non_available;
 		};
             my ($headersdir, $retries);