summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-08-21 16:21:44 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-08-21 16:21:44 +0000
commit7cb30878fc6639711bdb054ce71b503447045e8c (patch)
tree2af3d06885f43f2de059cb444e80a9f4fd8bde74 /perl-install
parent0da9eef7dabd4103297f7f77fce87f57f2fd427e (diff)
downloaddrakx-backup-do-not-use-7cb30878fc6639711bdb054ce71b503447045e8c.tar
drakx-backup-do-not-use-7cb30878fc6639711bdb054ce71b503447045e8c.tar.gz
drakx-backup-do-not-use-7cb30878fc6639711bdb054ce71b503447045e8c.tar.bz2
drakx-backup-do-not-use-7cb30878fc6639711bdb054ce71b503447045e8c.tar.xz
drakx-backup-do-not-use-7cb30878fc6639711bdb054ce71b503447045e8c.zip
cleanup
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm7
1 files changed, 1 insertions, 6 deletions
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;