- genhdlist2:

  o error message when parse_hdlist (partially) fail

1 files changed, 7 insertions, 2 deletions

diff --git a/genhdlist2 b/genhdlist2
index b373ab7..89b01d6 100644
--- a/genhdlist2
+++ b/genhdlist2
@@ -149,7 +149,7 @@ sub build_hdlist {
 sub filter_existing_hdlist {
     my ($urpm, $rpms_todo, $in_hdlist, $out) = @_;
 
-    $urpm->parse_hdlist($in_hdlist, packing => 1, callback => sub {
+    if ($urpm->parse_hdlist($in_hdlist, packing => 1, callback => sub {
 	my (undef, $pkg) = @_;
 	my $fullname = $pkg->fullname;
 	if (delete $rpms_todo->{$fullname}) {
@@ -160,7 +160,12 @@ sub filter_existing_hdlist {
 	    print "removing $fullname\n" if $verbose > 0;
 	    0; # don't keep in memory
 	}
-    });
+    })) {
+	# ok
+    } else {
+	my $nb = @{$urpm->{depslist}};
+	print STDERR "parse_hdlist has failed, keeping $nb headers succesfully parsed\n" if $verbose >= 0;
+    }
 }
 
 sub add_new_rpms_to_hdlist {