summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2017-08-23 09:38:03 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2017-08-23 09:38:03 +0000
commit04c42e15a489f08d47431e0dd63996a2961e7ffe (patch)
tree4bd01e3ad0582a532cbbf4686fd21fb05ec1036c /Master
parent5395c574f32c9d1aba78751556fdc527a6feabfc (diff)
Added a couple of existence tests to tlmgr info --data
git-svn-id: svn://tug.org/texlive/trunk@45102 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-xMaster/texmf-dist/scripts/texlive/tlmgr.pl20
1 files changed, 14 insertions, 6 deletions
diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl
index 2d1ed80cbc2..9601fe4cea8 100755
--- a/Master/texmf-dist/scripts/texlive/tlmgr.pl
+++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl
@@ -3577,16 +3577,24 @@ sub show_one_package_csv {
if ($d eq "name") {
push @out, $p;
} elsif ($d eq "category") {
- push @out, $tlp->category;
+ push @out, $tlp->category || "";
} elsif ($d eq "shortdesc") {
my $str = $tlp->shortdesc;
- $str =~ s/"/\\"/g;
- push @out, "\"$str\"";
+ if (defined $tlp->shortdesc) {
+ $str =~ s/"/\\"/g;
+ push @out, "\"$str\"";
+ } else {
+ push @out, "";
+ }
} elsif ($d eq "longdesc") {
my $str = $tlp->longdesc;
- $str =~ s/"/\\"/g;
- $str =~ s/\n/\\n/g;
- push @out, "\"$str\"";
+ if (defined $tlp->shortdesc) {
+ $str =~ s/"/\\"/g;
+ $str =~ s/\n/\\n/g;
+ push @out, "\"$str\"";
+ } else {
+ push @out, "";
+ }
} elsif ($d eq "installed") {
push @out, $is_installed;
} elsif ($d eq "relocatable") {