From 4b2d98dd3342b2b64295f1c2931444dd95736ecb Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 6 Jul 2008 16:57:35 +0000 Subject: doc changes git-svn-id: svn://tug.org/texlive/trunk@9296 c570f23f-e606-0410-a88d-b1316a301751 --- Master/install-tl | 26 +++++++++++++++----------- 1 file changed, 15 insertions(+), 11 deletions(-) (limited to 'Master/install-tl') diff --git a/Master/install-tl b/Master/install-tl index 0ef2c5cb5f7..a3948cc50e0 100755 --- a/Master/install-tl +++ b/Master/install-tl @@ -1084,27 +1084,31 @@ sub do_texmf_cnf { push @newtmf, $line; } } + my $TMF; if (!$vars{'from_dvd'}) { - open(TMF,">$vars{'TEXDIR'}/texmf.cnf") - or die("Can't open $vars{'TEXDIR'}/texmf.cnf for writing: $!\n"); + $TMF = ">$vars{'TEXDIR'}/texmf.cnf"; + open(TMF, $TMF) || die "open($TMF) failed: $!\n"; print TMF <$vars{'TEXMFSYSVAR'}/web2c/texmf.cnf") - or die("Can't open $vars{'TEXMFSYSVAR'}/web2c/texmf.cnf for writing: $!\n"); + $TMF = ">$vars{'TEXMFSYSVAR'}/web2c/texmf.cnf"; + open (TMF, $TMF) || die "open($TMF) failed: $!\n"; foreach (@newtmf) { print TMF; } } - close(TMF); + close(TMF) || warn "close($TMF) failed: $!"; } # -- cgit v1.2.3