summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/any.pm9
-rw-r--r--perl-install/install_steps.pm1
2 files changed, 10 insertions, 0 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index b8e5e54cc..2e97c9bc5 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -1176,4 +1176,13 @@ sub config_dvd {
}
}
+sub config_mtools {
+ my ($prefix) = @_;
+ my ($f1, $f2) = detect_devices::floppies_dev();
+ substInFile {
+ s|drive a: file="(.*?)"|drive a: file="/dev/$f1"|;
+ s|drive b: file="(.*?)"|drive b: file="/dev/$f2"| if $f2;
+ } "$prefix/etc/mtools.conf"
+}
+
1;
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index cea22abfc..fb5ca0659 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -422,6 +422,7 @@ Consoles 1,3,4,7 may also contain interesting information";
touch "$o->{prefix}/var/lock/TMP_1ST";
any::config_dvd($o->{prefix});
+ any::config_mtools($o->{prefix});
any::writeandclean_ldsoconf($o->{prefix});