From 7cb30878fc6639711bdb054ce71b503447045e8c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 21 Aug 2001 16:21:44 +0000
Subject: cleanup

---
 perl-install/install_any.pm | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

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

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 29c8a6875..aa5ecfb74 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -801,13 +801,8 @@ sub loadO {
 
 sub generate_automatic_stage1_params {
     my ($o) = @_;
-    my @ks = ();
 
-    if ($o->{method} =~ /hd/) {
-	push @ks, "method:disk";
-    } else {
-	push @ks, "method:" . $o->{method};
-    }
+    my @ks = "method:$o->{method}";
 
     if ($o->{method} =~ /http/) {
 	"$ENV{URLPREFIX}" =~ m|http://(.*)/(.*)| or die;
-- 
cgit v1.2.1