From 58e15c89201c2589e049d1216ba70d5607e3ea7e Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Thu, 17 May 2012 22:29:45 +0000 Subject: hopefully fix updmap-sys --enable /mktexupd for Windows git-svn-id: svn://tug.org/texlive/trunk@26469 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLUtils.pm | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) (limited to 'Master/tlpkg/TeXLive') diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 12e7c8a4ce2..6d385578337 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -3857,9 +3857,9 @@ sub mktexupd { $files{$file}=1; } }, - # "reset" => sub { - # %files=(); - # }, + "reset" => sub { + %files=(); + }, "mustexist" => sub { $mustexist=shift; }, @@ -3880,12 +3880,14 @@ sub mktexupd { foreach my $path (keys %files) { foreach my $db (@texmfdbs) { $db=substr($db, -1) if ($db=~m|/$|); # strip leading / - if (substr($path, 0, length("$db/")) eq "$db/") { + $db = lc($db) if win32(); + $up = (win32() ? lc($path) : $path); + if (substr($up, 0, length("$db/")) eq "$db/") { # we appended a / because otherwise "texmf" is recognized as a # substring of "texmf-dist". - my $path='./' . substr($path, length("$db/")); + my $np = './' . substr($up, length("$db/")); my ($dir, $file); - $_=$path; + $_=$np; ($dir, $file) = m|(.*)/(.*)|; $dbs{$db}{$dir}{$file}=1; } -- cgit v1.2.3