summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPOBJ.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2013-09-16 07:35:29 +0000
committerNorbert Preining <preining@logic.at>2013-09-16 07:35:29 +0000
commit3a2b881b23875b7ee27233b1e3d9474428341712 (patch)
tree542e613f9fd4a1e6758de56c2119a630e78862b8 /Master/tlpkg/TeXLive/TLPOBJ.pm
parent8da1a1e04c93e34972b1b4937814433c7075490d (diff)
remove all embedded quotes in details/language tags
git-svn-id: svn://tug.org/texlive/trunk@31670 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm9
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;
}
}
}