diff options
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; |