--headers of urpmq with synthesis only.

1 files changed, 9 insertions, 3 deletions

diff --git a/urpmq b/urpmq
index 74cb09e1..baf1408b 100755
--- a/urpmq
+++ b/urpmq
@@ -144,9 +144,15 @@ if ($query->{headers} || $query->{sources}) {
 			   map { /(.*)\/([^\/]*)-([^-]*)-([^-]*)\.([^\.]*)\.rpm/ and "$2-$3-$4.$5" } values %{$list->[$_]});
 	    @headers > 0 or next;
 
-	    require packdrake;
-	    my $packer = new packdrake("$urpm->{statedir}/$urpm->{media}[$_]{hdlist}");
-	    $packer->extract_archive(undef, @headers);
+	    if (-s "$urpm->{statedir}/$urpm->{media}[$_]{hdlist}") {
+		require packdrake;
+		my $packer = new packdrake("$urpm->{statedir}/$urpm->{media}[$_]{hdlist}");
+		$packer->extract_archive(undef, @headers);
+	    } else {
+		#- fallback to retrieve rpm package before, so that --headers will be ok.
+		my %uploads = $urpm->upload_source_packages({}, $list, '', undef);
+		system "rpm2header", values %uploads;
+	    }
 	}
     } else {
 	print join "\n", values %$local_sources; values %$local_sources and print "\n";