diff options
author | Thierry Vignaud <tv@mandriva.org> | 2009-12-02 18:48:02 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mandriva.org> | 2009-12-02 18:48:02 +0000 |
commit | 1a3de3d9cddc23c4040fd6cc804da397bc11c311 (patch) | |
tree | cf1a8efb57a936fe4638adc6aa4759c0b2e4e9cd /ulri | |
parent | 84b43ce2b4e8d239eb64f06d897f1d18ab856303 (diff) | |
download | iurt-1a3de3d9cddc23c4040fd6cc804da397bc11c311.tar iurt-1a3de3d9cddc23c4040fd6cc804da397bc11c311.tar.gz iurt-1a3de3d9cddc23c4040fd6cc804da397bc11c311.tar.bz2 iurt-1a3de3d9cddc23c4040fd6cc804da397bc11c311.tar.xz iurt-1a3de3d9cddc23c4040fd6cc804da397bc11c311.zip |
perl_checker cleanups
Diffstat (limited to 'ulri')
-rwxr-xr-x | ulri | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -494,6 +494,7 @@ foreach my $prefix (keys %pkg_tree) { $text .= "\nFailure details available in $fpath/log\n"; $text .= "Reason:\n"; open my $FP, "$fail_dir/$prefix/log/status.log"; + local $_; while (<$FP>) { $text .= $_; } @@ -503,7 +504,7 @@ foreach my $prefix (keys %pkg_tree) { opendir my $DP1, "$fail_dir/$prefix/log/"; foreach my $f1 (readdir $DP1) { - if (not -d "$fail_dir/$prefix/log/$f1" or $f1 =~ m/^\./) { + if (! -d "$fail_dir/$prefix/log/$f1" or $f1 =~ m/^\./) { next; } @@ -514,7 +515,7 @@ foreach my $prefix (keys %pkg_tree) { } $text .= "$fpath/log/$f1/$f2\n"; } - closedir DP2; + closedir $DP2; } closedir $DP1; @@ -551,7 +552,7 @@ foreach my $prefix (sort keys %pkg_tree) { if ($user) { $user = get_author_email($user) || $config->{packager}; } else { - $user = $config->{packager} + $user = $config->{packager}; } $user =~ s/([<>])/\\$1/g; |