diff options
Diffstat (limited to 'Master/tlpkg')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index c01ceac2355..7c8622e2a96 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -796,10 +796,15 @@ sub update_from_catalogue if ($tlpdocfile =~ m/$tcdocfilebasename$/) { # update the language/detail tags if present! if (defined($entry->docs->{$tcdocfile}{'details'})) { - $self->{'docfiledata'}{$tlpdocfile}{'details'} = $entry->docs->{$tcdocfile}{'details'}; + my $tmp = $entry->docs->{$tcdocfile}{'details'}; + # remove all embedded quotes, they are just a pain + $tmp =~ s/"//g; + $self->{'docfiledata'}{$tlpdocfile}{'details'} = $tmp; } if (defined($entry->docs->{$tcdocfile}{'language'})) { - $self->{'docfiledata'}{$tlpdocfile}{'language'} = $entry->docs->{$tcdocfile}{'language'}; + my $tmp = $entry->docs->{$tcdocfile}{'language'}; + $tmp =~ s/"//g; + $self->{'docfiledata'}{$tlpdocfile}{'language'} = $tmp; } } } |