(config_mtools): don't create /etc/mtools.conf if it doesn't exist

1 files changed, 4 insertions, 1 deletions

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 2e97c9bc5..55c43869a 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -1178,11 +1178,14 @@ sub config_dvd {
 
 sub config_mtools {
     my ($prefix) = @_;
+    my $file = "$prefix/etc/mtools.conf";
+    -e $file or return;
+
     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"
+    } $file;
 }
 
 1;