diff options
Diffstat (limited to 'lib/Youri/Submit/Check/Rpmlint.pm')
| -rw-r--r-- | lib/Youri/Submit/Check/Rpmlint.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Youri/Submit/Check/Rpmlint.pm b/lib/Youri/Submit/Check/Rpmlint.pm index da2240d..be6eaba 100644 --- a/lib/Youri/Submit/Check/Rpmlint.pm +++ b/lib/Youri/Submit/Check/Rpmlint.pm @@ -66,8 +66,8 @@ sub run { my @errors; my $command = "$self->{_path} -f $self->{_config} " . $package->as_file(); - open(RPMLINT, "$command |") or die "Can't run $command: $!"; - while (my $line = <RPMLINT>) { + 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 my ($id, $value) = ($1, $2); |