From 6ff046c12b6896c6b7ace34d964ace11ef5059ed Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Thu, 13 Nov 2008 15:43:41 +0000 Subject: fix problems with TLPostActions: missing tlwarn, path not found in touch git-svn-id: svn://tug.org/texlive/trunk@11288 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPostActions.pm | 21 ++++++++++++--------- 1 file changed, 12 insertions(+), 9 deletions(-) (limited to 'Master') diff --git a/Master/tlpkg/TeXLive/TLPostActions.pm b/Master/tlpkg/TeXLive/TLPostActions.pm index 988a845b9b4..24db9e3382f 100644 --- a/Master/tlpkg/TeXLive/TLPostActions.pm +++ b/Master/tlpkg/TeXLive/TLPostActions.pm @@ -18,7 +18,7 @@ BEGIN { } use TeXLive::TLUtils qw(win32 mkdirhier copy conv_to_w32_path log debug info - touch); + touch tlwarn); use TeXLive::TLWinGoo; my $mainmenu = "TeX Live 2008"; @@ -111,14 +111,17 @@ sub do_install_xetex { if (opendir (WINFONT, $winfontdir)) { my @dirents = readdir (WINFONT); closedir (WINFONT) || warn "closedir($winfontdir) failed: $!"; - for my $dirent (@dirents) { - if ($dirent =~ m/\.(ttf|otf)$/i) { - touch($dirent); - tlwarn("touching $dirent in $winfontdir to make fc-cache work\n"); - # one file touched should be enough - last; - } - } + # do not actually touch anything by now, maybe already the + # opendir is enough ... + + # for my $dirent (@dirents) { + # if ($dirent =~ m/\.(ttf|otf)$/i) { + # touch("$winfontdir/$dirent"); + # tlwarn("touching $dirent in $winfontdir to make fc-cache work\n"); + # # one file touched should be enough + # last; + # } + # } } } foreach (@lines) { -- cgit v1.2.3