(extract_header) display which hdlist is bogus

1 files changed, 1 insertions, 1 deletions

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