From 132de14f4face2f38c1e85102ca710239831696b Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 27 Feb 2003 18:43:51 +0000
Subject: perl_checker fix

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

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 962ee81de..075d6dfb5 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -217,7 +217,7 @@ sub packageRequest {
 }
 
 sub packageCallbackChoices {
-    my ($urpm, $_db, $_state, $choices) = @_;
+    my ($urpm, $_db, $state, $choices) = @_;
     if (my $prefer = find { exists $preferred{$_->name} } @$choices) {
 	$prefer;
     } else {
@@ -236,7 +236,7 @@ sub packageCallbackChoices {
 	} @$choices;
 	if (!@l) {
 	    push @l, $choices->[0];
-	    log::l("packageCallbackChoices: default choice from ", join(",", map { $urpm->{depslist}[$_]->name } keys %{$_state->{selected}}), " in ", join(",", map { $_->name } @$choices));
+	    log::l("packageCallbackChoices: default choice from ", join(",", map { $urpm->{depslist}[$_]->name } keys %{$state->{selected}}), " in ", join(",", map { $_->name } @$choices));
 	}
 	#-log::l("packageCallbackChoices: chosen " . join(" ", map { $_->name } @l));
 	@l;
-- 
cgit v1.2.1