From 1a3de3d9cddc23c4040fd6cc804da397bc11c311 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 2 Dec 2009 18:48:02 +0000
Subject: perl_checker cleanups

---
 ulri | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'ulri')

diff --git a/ulri b/ulri
index 8c06126..d654e7a 100755
--- a/ulri
+++ b/ulri
@@ -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;
 
-- 
cgit v1.2.1