[backend] Guard the readxml against bad XML

openSUSE · Oct 30, 2014 · 49cbd50 · 49cbd50
1 parent fab5b35
commit 49cbd50
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/backend/bs_admin b/src/backend/bs_admin
@@ -1014,7 +1014,10 @@ while (@ARGV) {
             my ($hash, $desc) = split(/\s+/, $_);
             next if !defined( $sourcefiles{$hash.'-'.$desc});
             # open link file to look if it links to a file that will be deleted
-            my $link = readxml($sourcefiles{$hash.'-'.$desc}, $BSXML::link);
+	    eval {
+	      my $link = readxml($sourcefiles{$hash.'-'.$desc}, $BSXML::link);
+	    } ;
+	    if ($@) { warn "$@ whilst processing $treesfiles{$file}"; next; }
             next if !defined $link->{"package"} || !defined $link->{"project"} || !defined $link->{"rev"};
             my $revision = getrev($link->{"project"}, $link->{"package"}, $link->{"rev"});
             next if !defined($revision->{"time"});