From b5bc676d61e1e5f1f1840e8723f81dc24c344f98 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 29 Sep 2003 14:18:09 +0000
Subject: perl_checker fixes

---
 perl-install/install_any.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/install_any.pm')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 6032d5a31..e646d3930 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -504,7 +504,7 @@ sub install_urpmi {
     $packages->parse_pubkeys(db => $db);
     foreach my $medium (values %$mediums) {
 	$packages->import_needed_pubkeys($medium->{pubkey}, db => $db, callback => sub {
-					     my (undef, undef, $k, $id, $imported) = @_;
+					     my (undef, undef, $_k, $id, $imported) = @_;
 					     if ($id) {
 						 log::l(($imported ? "imported" : "found")." key=$id for medium $medium->{descr}");
 						 $medium->{key_ids}{$id} = undef;
@@ -586,7 +586,7 @@ sub install_urpmi {
   list: list.$name" : "") . (keys(%{$_->{key_ids}}) ? "
   key-ids: " . join(',', keys(%{$_->{key_ids}})) : "") . ($dir =~ /removable:/ && "
   removable: /dev/cdrom") . ($_->{update} ? "
-  update" : ""). "
+  update" : "") . "
 }
 
 ";
-- 
cgit v1.2.1