Fix escaping of '"' in XML::Tags::to_xml_string

Double quote ('"') should be escaped as '"', not as '&quot'.
This fixes a bug found in 'Escaping ok' test in t/tags.t

Signed-off-by: Jakub Narebski <jnareb@gmail.com>

diff --git a/lib/XML/Tags.pm b/lib/XML/Tags.pm
index 0c9ff8b..9249691 100644 (file)
--- a/lib/XML/Tags.pm
+++ b/lib/XML/Tags.pm
@@ -26,7 +26,7 @@ sub to_xml_string {
     ref($_)
       ? (ref $_ eq 'SCALAR' ? $$_ : $_)
       : do { local $_ = $_; # copy
-          s/&/&amp;/g; s/"/&quot/g; s/</&lt;/g; s/>/&gt;/g; $_;
+          s/&/&amp;/g; s/"/&quot;/g; s/</&lt;/g; s/>/&gt;/g; $_;
         }
   } @_
 }