summaryrefslogtreecommitdiff
path: root/Master/tlpkg
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2013-04-19 19:47:12 +0000
committerNorbert Preining <preining@logic.at>2013-04-19 19:47:12 +0000
commit9ff55323bdb88ede985266ee9123bc2cdda58848 (patch)
treea94627d324018ef58dd01f2f6d16a60c60318592 /Master/tlpkg
parent826eb267e9c472caa33e610f897b43485bb8b7bb (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')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm7
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";
+ }
}
}
}