summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install2.pm4
-rw-r--r--perl-install/pkgs.pm2
2 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index bd3d92b18..49f6b6b10 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -361,7 +361,7 @@ sub main {
my ($cfg, $patch, @auto);
my %cmdline = map {
- my ($n, $v) = split '=';
+ my ($n, $v) = split /=/;
$n => $v || 1;
} split ' ', cat_("/proc/cmdline");
@@ -417,6 +417,8 @@ sub main {
updatemodules => sub { $o->{updatemodules} = 1 },
move => sub { $::move = 1 },
globetrotter => sub { $::move = 1; $::globetrotter = 1 },
+ suppl => sub { $o->{supplmedia} = 1 },
+ askmedia => sub { $o->{askmedia} = 1 },
}}{lc $n}; &$f if $f;
} %cmdline;
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index aa9e54d11..4f2a983e5 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -396,7 +396,7 @@ sub psUsingHdlists {
my $is_ftp = $o_hdlistsprefix =~ /^ftp:/;
my $listf = install_any::getFile($o_hdlistsprefix && !$is_ftp ? "$o_hdlistsprefix/media/media_info/hdlists" : 'media/media_info/hdlists')
or die "no hdlists found";
- my ($suppl_CDs, $deselectionAllowed) = (0, 0);
+ my ($suppl_CDs, $deselectionAllowed) = ($o->{supplmedia} || 0, $o->{askmedia} || 0);
if (!$o_packages) {
$o_packages = new URPM;
#- add additional fields used by DrakX.