projects
/
scpubgit/HTML-String.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
further escaping fixes
[scpubgit/HTML-String.git]
/
lib
/
HTML
/
String
/
TT
/
Directive.pm
diff --git
a/lib/HTML/String/TT/Directive.pm
b/lib/HTML/String/TT/Directive.pm
index
5e6baad
..
4a1c819
100644
(file)
--- a/
lib/HTML/String/TT/Directive.pm
+++ b/
lib/HTML/String/TT/Directive.pm
@@
-19,7
+19,7
@@
sub textblock {
sub text {
my ($class, $text) = @_;
for ($text) {
- s/(["\$\@\\])/\\$1/g;
+ s/(["\$\@\\])/"."\\$1"."/g;
s/\n/"."\\n"."/g;
}
return '"' . $text . '"';