summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-07-11 16:40:08 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-07-11 16:40:08 +0000
commit77f00a42b5cd8fb087d21b72521f5f8fcde5613a (patch)
treef21d3e1dbc492ab2b55455ac07ce284b83b0f13f /perl-install/any.pm
parent56f43854ab80a3707c9a9d1aa1f704401ef88cb8 (diff)
downloaddrakx-backup-do-not-use-77f00a42b5cd8fb087d21b72521f5f8fcde5613a.tar
drakx-backup-do-not-use-77f00a42b5cd8fb087d21b72521f5f8fcde5613a.tar.gz
drakx-backup-do-not-use-77f00a42b5cd8fb087d21b72521f5f8fcde5613a.tar.bz2
drakx-backup-do-not-use-77f00a42b5cd8fb087d21b72521f5f8fcde5613a.tar.xz
drakx-backup-do-not-use-77f00a42b5cd8fb087d21b72521f5f8fcde5613a.zip
(config_mtools): don't create /etc/mtools.conf if it doesn't exist
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm5
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;