summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
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;