From 864e424e3924ee6e1c81aab815eb5270248beae9 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Fri, 8 Feb 2008 17:48:50 +0000 Subject: make all rpmlint errors fatal --- lib/Youri/Submit/Check/Rpmlint.pm | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/lib/Youri/Submit/Check/Rpmlint.pm b/lib/Youri/Submit/Check/Rpmlint.pm index a58e283..22479ee 100644 --- a/lib/Youri/Submit/Check/Rpmlint.pm +++ b/lib/Youri/Submit/Check/Rpmlint.pm @@ -68,12 +68,10 @@ sub run { my $command = "$self->{_path} -f $self->{_config} " . $package->as_file; open(my $RPMLINT, "$command |") or die "Can't run $command: $!"; while (my $line = <$RPMLINT>) { - $line =~ /^[EW]: \S+ (\S+)(.*)$/ # old rpmlint format - || $line =~ /^\S+: [EW]: (\S+)(.*)$/ or next; # new rpmlint format + $line =~ /^E: \S+ (\S+)(.*)$/ # old rpmlint format + || $line =~ /^\S+: E: (\S+)(.*)$/ or next; # new rpmlint format my ($id, $value) = ($1, $2); - if ($id =~ /$self->{_pattern}/o) { - push(@errors, "$id$value"); - } + push(@errors, "$id$value"); } return @errors; -- cgit v1.2.1