From 651910d3e6ae5a8924f68c5abfbd34374a76532d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 10 Nov 2006 09:21:13 +0000
Subject: perl_checker compliance

---
 urpm.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'urpm.pm')

diff --git a/urpm.pm b/urpm.pm
index 7d0570ae..53b91022 100644
--- a/urpm.pm
+++ b/urpm.pm
@@ -460,6 +460,7 @@ sub configure {
 	    foreach my $dir (grep { -d $_ } map { "$_/urpm" } @INC) {
 		my $dh = $urpm->opendir_safe($dir);
 		if ($dh) {
+		    local $_;
 		    while (defined ($_ = readdir $dh)) { #- load parallel modules
 			/parallel.*\.pm$/ && -f "$dir/$_" or next;
 			$urpm->{log}->(N("examining parallel handler in file [%s]", "$dir/$_"));
@@ -1374,6 +1375,7 @@ this could happen if you mounted manually the directory when creating the medium
 		} else {
 		    {
 			my %f;
+			local $_; #- help perl_checker not warning "undeclared $_" in wanted callback below
 			File::Find::find(
 			    {
 				wanted => sub { -f $_ && /\.rpm$/ and $f{"$File::Find::dir/$_"} = 1 },
@@ -3440,7 +3442,7 @@ sub get_md5sum {
 
     my ($retrieved_md5sum) = map {
 	my ($md5sum, $file) = m|(\S+)\s+(?:\./)?(\S+)|;
-	$file && $file eq $basename ? $md5sum : ();
+	$file && $file eq $basename ? $md5sum : @{[]};
     } cat_($path);
 
     $retrieved_md5sum;
-- 
cgit v1.2.1