SL::Template::Plugin::L::_J ums escaping von ' und \ erweitert

diff --git a/SL/Template/Plugin/L.pm b/SL/Template/Plugin/L.pm
index f90a948..9cf5ebb 100644 (file)
--- a/SL/Template/Plugin/L.pm
+++ b/SL/Template/Plugin/L.pm
@@ -28,8 +28,8 @@ sub _H {
 }
 
 sub _J {
-  my $string =  "" . shift;
-  $string    =~ s/\"/\\\"/g;
+  my $string = shift;
+  $string    =~ s/(\"|\'|\\)/\\$1/g;
   return $string;
 }