handle new rpmlint format

(not useful at the moment since we still use old rpmlint, but may be useful in
the future)

1 files changed, 3 insertions, 2 deletions

diff --git a/lib/Youri/Submit/Check/Rpmlint.pm b/lib/Youri/Submit/Check/Rpmlint.pm
index a38f2ba..da2240d 100644
--- a/lib/Youri/Submit/Check/Rpmlint.pm
+++ b/lib/Youri/Submit/Check/Rpmlint.pm
@@ -68,8 +68,9 @@ sub run {
     my $command = "$self->{_path} -f $self->{_config} " . $package->as_file();
     open(RPMLINT, "$command |") or die "Can't run $command: $!";
     while (my $line = <RPMLINT>) {
-        my ($id, $value) = $line =~ /^[EW]: \S+ (\S+)(.*)$/;
-	$id or next;
+	$line =~ /^[EW]: \S+ (\S+)(.*)$/ # old rpmlint format
+	  || $line =~ /^\S+: [EW]: (\S+)(.*)$/ or next; # new rpmlint format
+        my ($id, $value) = ($1, $2);
         if ($id =~ /$self->{_pattern}/o) {
             push(@errors, "$id$value");
         }