From 04c42e15a489f08d47431e0dd63996a2961e7ffe Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Wed, 23 Aug 2017 09:38:03 +0000 Subject: Added a couple of existence tests to tlmgr info --data git-svn-id: svn://tug.org/texlive/trunk@45102 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/scripts/texlive/tlmgr.pl | 20 ++++++++++++++------ 1 file changed, 14 insertions(+), 6 deletions(-) (limited to 'Master') 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") { -- cgit v1.2.3