From cff4ae831a0a67314876a28e165343b17c0c3560 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 9 Mar 2003 21:32:57 +0000
Subject: make perl_checker a happy prog

---
 perl-install/install_steps_interactive.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 275df04e2..90d10e869 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -156,7 +156,7 @@ sub selectInstallClass {
 	    log::l("choosing to upgrade partition $part->{device}");
 	    install_any::use_root_part($o->{all_hds}, $part, $o->{prefix});
 	    foreach (grep { $_->{mntpoint} } @{$o->{fstab}}) {
-		my ($options, $unknown) = fs::mount_options_unpack($_);
+		my ($options, $_unknown) = fs::mount_options_unpack($_);
 		$options->{encrypted} or next;
 		$o->ask_from_({ focus_first => 1 },
 			      [ { label => N("Encryption key for %s", $_->{mntpoint}),
-- 
cgit v1.2.1