diff options
| author | Norbert Preining <preining@logic.at> | 2013-04-19 19:47:12 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2013-04-19 19:47:12 +0000 |
| commit | 9ff55323bdb88ede985266ee9123bc2cdda58848 (patch) | |
| tree | a94627d324018ef58dd01f2f6d16a60c60318592 /Master/tlpkg/TeXLive | |
| parent | 826eb267e9c472caa33e610f897b43485bb8b7bb (diff) | |
fix updmap bugs (mail Michael Sharpe 16Apr)
- updmap.pl: pull in touch from TLUtils
- updmap.pl: remove any trace of TEXMFMAIN
- TLUtils.pm: fix touch function to actually create a new file
git-svn-id: svn://tug.org/texlive/trunk@30043 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 825f6daf56a..351445b1cf4 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -971,8 +971,11 @@ sub touch { if (-e $file) { utime time, time, $file; } else { - open TMP, ">>$file" && close TMP - or warn "Can't update timestamps of $file: $!\n"; + if (open( TMP, ">$file")) { + close(TMP); + } else { + warn "Can't create file $file: $!\n"; + } } } } |