diff options
author | Olivier Blin <oblin@mandriva.com> | 2008-02-08 17:43:40 +0000 |
---|---|---|
committer | Olivier Blin <oblin@mandriva.com> | 2008-02-08 17:43:40 +0000 |
commit | c666df4d74b5888e18a417641ad922776dddc393 (patch) | |
tree | 8f4b9598959084cedbc82c3ba864aac4d7074e35 | |
parent | 07807da0fd35e6f59b81f0724d86006ca425fde1 (diff) | |
download | mga-youri-submit-c666df4d74b5888e18a417641ad922776dddc393.tar mga-youri-submit-c666df4d74b5888e18a417641ad922776dddc393.tar.gz mga-youri-submit-c666df4d74b5888e18a417641ad922776dddc393.tar.bz2 mga-youri-submit-c666df4d74b5888e18a417641ad922776dddc393.tar.xz mga-youri-submit-c666df4d74b5888e18a417641ad922776dddc393.zip |
use scalar for fd
-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); |