diff options
Diffstat (limited to 'Master')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 24 |
1 files changed, 11 insertions, 13 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 6fbcff6c5c2..52fd4c9159f 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -2753,21 +2753,19 @@ sub _create_config_files { if (@postlines) { push @lines, @postlines; } - if ($#lines >= 0) { - if ($usermode && -e $dest) { - tlwarn("Updating $dest, backup copy in $dest.backup\n"); - File::Copy::copy($dest, "$dest.backup"); - } - open(OUTFILE,">$dest") - or die("Cannot open $dest for writing: $!"); + if ($usermode && -e $dest) { + tlwarn("Updating $dest, backup copy in $dest.backup\n"); + File::Copy::copy($dest, "$dest.backup"); + } + open(OUTFILE,">$dest") + or die("Cannot open $dest for writing: $!"); - if (!$keepfirstline) { - print OUTFILE $cc; - printf OUTFILE " Generated by %s on %s\n", "$0", scalar localtime; - } - print OUTFILE @lines; - close(OUTFILE) || warn "close(>$dest) failed: $!"; + if (!$keepfirstline) { + print OUTFILE $cc; + printf OUTFILE " Generated by %s on %s\n", "$0", scalar localtime; } + print OUTFILE @lines; + close(OUTFILE) || warn "close(>$dest) failed: $!"; } sub parse_AddHyphen_line { |