diff options
| author | Norbert Preining <preining@logic.at> | 2008-11-13 15:43:41 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2008-11-13 15:43:41 +0000 |
| commit | 6ff046c12b6896c6b7ace34d964ace11ef5059ed (patch) | |
| tree | b1ddf76fa424fd8ba2fd62f86663909a1417c972 /Master | |
| parent | 497424791b8f6b1984f45a21a0558cf2a33beef7 (diff) | |
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
Diffstat (limited to 'Master')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLPostActions.pm | 21 |
1 files changed, 12 insertions, 9 deletions
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) { |