diff options
Diffstat (limited to 'Master/tlpkg/bin/tlpkginfo')
-rwxr-xr-x | Master/tlpkg/bin/tlpkginfo | 7 |
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... |