From 3a2b881b23875b7ee27233b1e3d9474428341712 Mon Sep 17 00:00:00 2001
From: Norbert Preining <preining@logic.at>
Date: Mon, 16 Sep 2013 07:35:29 +0000
Subject: remove all embedded quotes in details/language tags

git-svn-id: svn://tug.org/texlive/trunk@31670 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/tlpkg/TeXLive/TLPOBJ.pm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'Master')

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;
           }
         }
       }
-- 
cgit v1.2.3