summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tlpkginfo
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2015-12-23 23:45:40 +0000
committerKarl Berry <karl@freefriends.org>2015-12-23 23:45:40 +0000
commit46395f08db1fd908b63f6ca929f985ed12468dcc (patch)
tree26408d81693ab74a3f80dac383d06a4e49c56b8f /Master/tlpkg/bin/tlpkginfo
parentb361149a3534bd565a40b031860524b7d7e56c76 (diff)
luaotfload (23dec15)
git-svn-id: svn://tug.org/texlive/trunk@39184 c570f23f-e606-0410-a88d-b1316a301751
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...