From f1a976d9cab46367030217f8c1c290550b0ad637 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 18 Aug 2003 08:40:21 +0000 Subject: - fix long-standing broken mkbootdisk call bug - btw fix the passing of mkinirtd arguments to mkbootdisk --- perl-install/standalone/drakfloppy | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) (limited to 'perl-install') diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy index 73f10be5b..9bbd112c3 100755 --- a/perl-install/standalone/drakfloppy +++ b/perl-install/standalone/drakfloppy @@ -283,12 +283,15 @@ sub expand_tree { # the function #------------------------------------------------------------- sub build_it() { - my $co = "/sbin/mkbootdisk --noprompt --verbose --device " . $device_combo->entry->get_text; - $co .= " --mkinitrdargs -f" if $options{force}; - $co .= " --mkinitrdargs --ifneeded" if $options{needed}; - $co .= " --mkinitrdargs --omit-scsi-modules" if $options{scsi}; - $co .= " --mkinitrdargs --omit-raid-modules" if $options{raid}; - $co .= join(" --mkinitrdargs --with=", @modules); + my $initrd_args = join(' ', + if_($options{force}, "-f"), + if_($options{needed}, "--ifneeded"), + if_($options{scsi}, "--omit-scsi-modules"), + if_($options{raid}, "--omit-raid-modules"), + if_(@modules, map { my $i = $_; $i =~ s@.*/@@; "--with=$i" } @modules), + ); + $initrd_args = "--mkinitrdargs \"$initrd_args\"" if $initrd_args; + my $co = join(' ', "/sbin/mkbootdisk --noprompt --verbose --device", $device_combo->entry->get_text, $initrd_args); $options{MODULES} = join(' ', @modules); setVarsInSh($conffile, \%options); -- cgit v1.2.1