summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2006-11-10 09:21:13 +0000
committerPascal Rigaux <pixel@mandriva.com>2006-11-10 09:21:13 +0000
commit651910d3e6ae5a8924f68c5abfbd34374a76532d (patch)
tree457acb30852a3bede3e467c3bab4e4c51fb5463a
parentb306c1a29317c0f0af8d07d2b9026959c339d033 (diff)
downloadurpmi-651910d3e6ae5a8924f68c5abfbd34374a76532d.tar
urpmi-651910d3e6ae5a8924f68c5abfbd34374a76532d.tar.gz
urpmi-651910d3e6ae5a8924f68c5abfbd34374a76532d.tar.bz2
urpmi-651910d3e6ae5a8924f68c5abfbd34374a76532d.tar.xz
urpmi-651910d3e6ae5a8924f68c5abfbd34374a76532d.zip
perl_checker compliance
-rw-r--r--urpm.pm4
1 files changed, 3 insertions, 1 deletions
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;