summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2012-05-17 22:29:45 +0000
committerNorbert Preining <preining@logic.at>2012-05-17 22:29:45 +0000
commit58e15c89201c2589e049d1216ba70d5607e3ea7e (patch)
treef403be50bc33093a0995860996f6710cb4ba8729 /Master/tlpkg/TeXLive
parent6edb141e6c351ce605386a5beee76090899f7ee8 (diff)
hopefully fix updmap-sys --enable /mktexupd for Windows
git-svn-id: svn://tug.org/texlive/trunk@26469 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm14
1 files changed, 8 insertions, 6 deletions
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;
}