diff options
Diffstat (limited to 'Master/tlpkg/bin/tlpkginfo')
| -rwxr-xr-x | Master/tlpkg/bin/tlpkginfo | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/Master/tlpkg/bin/tlpkginfo b/Master/tlpkg/bin/tlpkginfo index 86aa4823f3d..c5543f1980c 100755 --- a/Master/tlpkg/bin/tlpkginfo +++ b/Master/tlpkg/bin/tlpkginfo @@ -89,7 +89,7 @@ sub ctaninfo { if ($ARGV[0] eq "--ctan-dir") { my $output = &find_ctan_dir ($ARGV[1], 0); - print "$output\n"; + print "$output\n" if $output; return $output ? 0 : 1; } elsif ($ARGV[0] eq "--prepare") { @@ -256,6 +256,8 @@ sub find_ctan_dir { # a temp dir). $ctan_dir = "$CTAN/$ctan_dir" if defined $ctan_dir && $ctan_dir =~ m,^[^/],; + + warn "$0:find_ctan_dir: no dir for $pkgname?\n" if ! $ctan_dir; return $ctan_dir; } @@ -306,7 +308,7 @@ sub catalogue_find_ctan_path { my $catfile = &catalogue_find_file ($pkgname); return undef if ! $catfile; - + # get the raw tag from the catalogue file. open (CATFILE, "<$catfile") || die "open($catfile) failed, fixme: $!"; while ($ctan_path = <CATFILE>) { @@ -322,6 +324,7 @@ sub catalogue_find_ctan_path { } close CATFILE; $ctan_path =~ s/\n/ /g; # put it on one line +#warn "catalogue ctan path start: $ctan_path\n"; ($ctan_path) = ($ctan_path =~ m,(<.*?/>),); # remove angle brackets return undef unless $ctan_path; # if it's not present at all |