From 55ecfa6fbf846c1437ea75881c6fead2cf945736 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 13 Sep 2013 02:02:25 +0000 Subject: when writing out docfiles tags, quote embedded quote chars git-svn-id: svn://tug.org/texlive/trunk@31644 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPOBJ.pm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'Master/tlpkg/TeXLive') diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index c49214ff194..a9835dff314 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -310,10 +310,14 @@ sub writeout { foreach my $f (sort @{$self->{'docfiles'}}) { print $fd " $f"; if (defined($self->{'docfiledata'}{$f}{'details'})) { - print $fd ' details="', $self->{'docfiledata'}{$f}{'details'}, '"'; + my $tmp = $self->{'docfiledata'}{$f}{'details'}; + $tmp =~ s/\"/\\\"/g; + print $fd ' details="', $tmp, '"'; } if (defined($self->{'docfiledata'}{$f}{'language'})) { - print $fd ' language="', $self->{'docfiledata'}{$f}{'language'}, '"'; + my $tmp = $self->{'docfiledata'}{$f}{'language'}; + $tmp =~ s/\"/\\\"/g; + print $fd ' language="', $tmp, '"'; } print $fd "\n"; } -- cgit v1.2.3