From 77f00a42b5cd8fb087d21b72521f5f8fcde5613a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 11 Jul 2002 16:40:08 +0000
Subject: (config_mtools): don't create /etc/mtools.conf if it doesn't exist

---
 perl-install/any.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl-install')

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;
-- 
cgit v1.2.1