From 46395f08db1fd908b63f6ca929f985ed12468dcc Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 23 Dec 2015 23:45:40 +0000 Subject: luaotfload (23dec15) git-svn-id: svn://tug.org/texlive/trunk@39184 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/bin/tlpkginfo | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'Master/tlpkg/bin/tlpkginfo') 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... -- cgit v1.2.3