diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-08-21 16:21:44 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-08-21 16:21:44 +0000 |
| commit | 7cb30878fc6639711bdb054ce71b503447045e8c (patch) | |
| tree | 2af3d06885f43f2de059cb444e80a9f4fd8bde74 /perl-install | |
| parent | 0da9eef7dabd4103297f7f77fce87f57f2fd427e (diff) | |
| download | drakx-7cb30878fc6639711bdb054ce71b503447045e8c.tar drakx-7cb30878fc6639711bdb054ce71b503447045e8c.tar.gz drakx-7cb30878fc6639711bdb054ce71b503447045e8c.tar.bz2 drakx-7cb30878fc6639711bdb054ce71b503447045e8c.tar.xz drakx-7cb30878fc6639711bdb054ce71b503447045e8c.zip | |
cleanup
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_any.pm | 7 |
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; |