Better error messages when urpmq fails to read cz archives

2 files changed, 4 insertions, 4 deletions

diff --git a/urpmi.spec b/urpmi.spec
index f02bb7ba..b560e1e1 100644
--- a/urpmi.spec
+++ b/urpmi.spec
@@ -29,8 +29,8 @@ Requires:	%{req_webfetch} eject gnupg
 Requires(pre):	perl-Locale-gettext >= 1.01-14mdk
 Requires(pre):	perl-URPM >= 1.22
 Requires:	perl-URPM >= 1.22
-#- this one is require'd by urpmi, so it's not found [yet] by perl.req
-Requires:	perl(MDV::Packdrakeng)
+#- this one is require'd by urpmq, so it's not found [yet] by perl.req
+Requires:	perl-MDV-Packdrakeng >= 1.01
 #- rpm2header is needed by urpmq
 Requires:	rpmtools >= 4.5
 BuildRequires:	bzip2-devel
diff --git a/urpmq b/urpmq
index c90911cd..c192ad02 100755
--- a/urpmq
+++ b/urpmq
@@ -327,7 +327,7 @@ if ($urpm::args::options{list_aliases}) {
 			quiet => 1,
 		    );
 		    defined $packer or do {
-			warn "Can't open archive\n";
+			warn "Can't open archive: $MDV::Packdrakeng::error";
 			exit 1;
 		    };
 		    $packer->extract(undef, @headers);
@@ -363,7 +363,7 @@ if ($urpm::args::options{list_aliases}) {
 			require MDV::Packdrakeng;
 			my $packer = MDV::Packdrakeng->open(archive => $hdlist_path, quiet => 1);
 			defined $packer or do {
-			    warn "Can't open archive\n";
+			    warn "Can't open archive: $MDV::Packdrakeng::error";
 			    exit 1;
 			};
 			$packer->extract($tmp_header_dir, @headers);