From 0971172a317eb06f39c47b2b32811d811c439485 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 22 Jan 2004 17:46:46 +0000
Subject: $def_n is unused

---
 perl-install/interactive/stdio.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/interactive/stdio.pm b/perl-install/interactive/stdio.pm
index d8971c795..ba3088876 100644
--- a/perl-install/interactive/stdio.pm
+++ b/perl-install/interactive/stdio.pm
@@ -75,7 +75,7 @@ ask_fromW_begin:
 	    }
 	} elsif ($e->{type} =~ /list/) {
 	    $e->{text} || $e->{label} and print "=> $e->{label} $e->{text}\n";
-	    my $n = 0; my $size = 0; my $def_n = 0;
+	    my $n = 0; my $size = 0;
 	    foreach (@{$e->{list}}) {
 		$n++;
 		my $t = "$n: " . may_apply($e->{format}, $_) . "\t";
@@ -85,7 +85,6 @@ ask_fromW_begin:
 		}
 		print $t;
 		$size += length($t);
-		${$e->{val}} eq $_ and $def_n = $n;
 	    }
 	    print "\n";
 	    my $i = good_choice(may_apply($e->{format}, ${$e->{val}}), $n);
-- 
cgit v1.2.1