From 8d60081683d25875743c1e63432e6ff96a62a85a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 30 May 2005 06:35:04 +0000
Subject: remove dead code

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

(limited to 'perl-install')

diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 5f62b3ac1..59feffbcd 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -613,18 +613,16 @@ sub main {
     eval { output('/proc/splash', "verbose\n") };
   
     #-the main cycle
-    my $clicked = 0;
     MAIN: for ($o->{step} = $o->{steps}{first};; $o->{step} = getNextStep($o)) {
 	$o->{steps}{$o->{step}}{entered}++;
 	$o->enteringStep($o->{step});
 	eval {
-	    &{$install2::{$o->{step}}}($clicked || $o->{steps}{$o->{step}}{noauto},
+	    &{$install2::{$o->{step}}}($o->{steps}{$o->{step}}{noauto},
 				       $o->{steps}{$o->{step}}{entered},
-				       $clicked ? 0 : $o->{steps}{$o->{step}}{auto});
+				       $o->{steps}{$o->{step}}{auto});
 	};
 	my $err = $@;
 	$o->kill_action;
-	$clicked = 0;
 	if ($err) {
 	    local $_ = $err;
 	    $o->kill_action;
-- 
cgit v1.2.1