summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPOBJ.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2013-09-13 02:02:25 +0000
committerNorbert Preining <preining@logic.at>2013-09-13 02:02:25 +0000
commit55ecfa6fbf846c1437ea75881c6fead2cf945736 (patch)
treef9f64fa1e3793b66f8d20109bcde129cf13da485 /Master/tlpkg/TeXLive/TLPOBJ.pm
parent3c628a427a39a1dbcc7abbaef3a50c407bc7e3a0 (diff)
when writing out docfiles tags, quote embedded quote chars
git-svn-id: svn://tug.org/texlive/trunk@31644 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm8
1 files changed, 6 insertions, 2 deletions
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";
}