diff options
Diffstat (limited to 'Master/tlpkg/bin/tlpkg-ctan-check')
-rwxr-xr-x | Master/tlpkg/bin/tlpkg-ctan-check | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check index 267eba9d1f6..2b63d2ea95f 100755 --- a/Master/tlpkg/bin/tlpkg-ctan-check +++ b/Master/tlpkg/bin/tlpkg-ctan-check @@ -1147,6 +1147,7 @@ sub do_tlp { # look in the new dir we just created. $ctan_dir = $pkgdir; } + warn "ctan_dir: $ctan_dir\n"; my @tl_files = (); push @tl_files, $tlp->runfiles; @@ -1165,13 +1166,13 @@ sub do_tlp { # the first one we come across, since we'll only find the first one # on CTAN and we don't want to try to match subdir suffixes. next if grep { $_ eq $basefile } @tl_basefiles; -#warn "checking tl file $file -> $basefile\n"; +#warn "\nchecking tl file $file -> $basefile\n"; push (@tl_basefiles, $basefile); # No point in comparing our pdfs now, too many are different. # However, for lshort translations and mathdesign, pdf can be # all we have to compare. - next if $file =~ /\.pdf$/ && $file !~ /short|mathdesign/; + next if $file =~ /\.pdf$/ && $file !~ /short|match_parens|mathdesign/; # seems mathpazo files were updated in TL and not CTAN. # Too old to worry about. @@ -1199,13 +1200,13 @@ sub do_tlp { next; } - chomp (@ctan_files = `find $ctan_dir/ -name $basefile`); -#warn "ctan find $basefile: @ctan_files\n"; + chomp (@ctan_files = `find $ctan_dir/ -name $basefile -type f`); +#warn " ctan find $basefile: @ctan_files\n"; # the trailing / is so we dereference a symlink on CTAN. next if @ctan_files > 1; # if more than one file by same name, skip my $ctan_file = $ctan_files[0]; -#warn "ctan file is $ctan_file\n"; +#warn " ctan file is $ctan_file\n"; if (! -e $ctan_file) { # maybe it'll be there with a case change in the name chomp (@ctan_files = `find $ctan_dir/ -iname $basefile`); |