From e68dc4d5506d46bf72823234f902bc76d1f70352 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 18 Apr 2015 22:40:06 +0000 Subject: udfhd.pl not used git-svn-id: svn://tug.org/texlive/trunk@36922 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/bin/check-files-by-format | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'Master/tlpkg/bin') diff --git a/Master/tlpkg/bin/check-files-by-format b/Master/tlpkg/bin/check-files-by-format index 396bbe1f787..5307c5cd2d6 100755 --- a/Master/tlpkg/bin/check-files-by-format +++ b/Master/tlpkg/bin/check-files-by-format @@ -56,7 +56,7 @@ my $exclude_pdf = { # the value has no meaning here my $exclude_pfb = { '*base*' => 'texmf-dist/fonts/type1', 'adobe/courier/' => 1, - 'adobe/sourcecodepro/' => 1, # SourceCodePro-Regular.pfb, 10nov12 contacted +# 'adobe/sourcecodepro/' => 1, # SourceCodePro-Regular.pfb, 10nov12 contacted 'arabi/arabeyes/' => 1, 'arabi/farsiweb/' => 1, 'arkandis/adfsymbols/' => 1, @@ -121,9 +121,6 @@ my $exclude_pfb = { '*base*' => 'texmf-dist/fonts/type1', 'public/mathabx-type1/' => 1, # 14jan11 wrote bnb/preining --karl 'public/marvosym/' => 1, 'public/mathpazo/' => 1, - 'public/musixtex-fonts/' => 1, # 2nov11 wrote tennent --karl -# 'public/newtx/' => 1, # 12may12 author will fix in next release -# 'public/newtxtt/' => 1, # dec14 author will fix in next release 'public/ocherokee/' => 1, 'public/oinuit/' => 1, 'public/omega/' => 1, @@ -277,7 +274,7 @@ sub get_file_list { sub exclude_value { my ($exclude, $file) = @_; my $base = $exclude->{'*base*'}; - $file =~ s!$base/!! if $base; + $file =~ s!^$base/!! if $base; (my $filedir = $file) =~ s![^/]*$!!; return $exclude->{$file} || $exclude->{$filedir}; } -- cgit v1.2.3