summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tlpkginfo
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/bin/tlpkginfo')
-rwxr-xr-xMaster/tlpkg/bin/tlpkginfo7
1 files changed, 4 insertions, 3 deletions
diff --git a/Master/tlpkg/bin/tlpkginfo b/Master/tlpkg/bin/tlpkginfo
index bdb529cfebf..bf949518d18 100755
--- a/Master/tlpkg/bin/tlpkginfo
+++ b/Master/tlpkg/bin/tlpkginfo
@@ -93,7 +93,7 @@ sub ctaninfo {
} elsif ($ARGV[0] eq "--prepare") {
my $output = &prepare ($ARGV[1]);
- print "$output\n";
+ print "$output\n" if $output; # if no $output, errors elsewhere
return $output ? 0 : 1;
} elsif ($ARGV[0] eq "--ctan-root") {
@@ -347,7 +347,8 @@ sub catalogue_find_ctan_path {
#
# Create a tmpdir with the tds-ready tree for PKG unpacked, if it exists,
-# else return the normal ctan dir for PKG.
+# else return the normal ctan dir for PKG. Return undef if no package
+# or can't find the ctan directory.
#
sub prepare {
my ($pkg) = @_;
@@ -359,7 +360,7 @@ sub prepare {
return $ctan_loc if $pkg =~ /^($erroneous_tds)$/;
# tds path is usually in ctan/install...
- my $tds_path = "$ctan_loc.tds.zip";
+ my $tds_path = $ctan_loc ? "$ctan_loc.tds.zip" : "";
$tds_path =~ s,^$CTAN,$CTAN/install,;
# ...except for heiko, when running on tug.org...