diff options
Diffstat (limited to 'Master/tlpkg/bin/tlpkginfo')
-rwxr-xr-x | Master/tlpkg/bin/tlpkginfo | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/Master/tlpkg/bin/tlpkginfo b/Master/tlpkg/bin/tlpkginfo index 4aa47a063f2..80b088f38b9 100755 --- a/Master/tlpkg/bin/tlpkginfo +++ b/Master/tlpkg/bin/tlpkginfo @@ -163,6 +163,12 @@ sub find_ctan_dir if $me =~ /^hyphen-/ && ! $ctan_dir; } + # In the case of mathspic, we cannot use the catalogue directory, + # since we want to ignore the dos/ subdir and just go with the perl/. + if ($me eq "mathspic") { + $ctan_dir .= "/perl"; + } + # prepend ctan root if not an absolute dir (this happens when we make # a temp dir). $ctan_dir = "$CTAN/$ctan_dir" if $ctan_dir =~ m,^[^/],; @@ -207,7 +213,7 @@ sub catalogue_find_ctan_path return undef unless -r $catfile; # get the raw tag from the catalogue file. - open CATFILE, '<', $catfile or die "Cannot read $catfile: $!\nFix me!\n"; + open (CATFILE, "<$catfile") || die "Cannot read $catfile: $!\nFix me!\n"; while ($ctan_path = <CATFILE>) { last if $ctan_path =~ /<ctan /; } |