From 9ff55323bdb88ede985266ee9123bc2cdda58848 Mon Sep 17 00:00:00 2001
From: Norbert Preining <preining@logic.at>
Date: Fri, 19 Apr 2013 19:47:12 +0000
Subject: 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
---
 Master/tlpkg/TeXLive/TLUtils.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'Master/tlpkg/TeXLive')

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";
+      }
     }
   }
 }
-- 
cgit v1.2.3