diff options
Diffstat (limited to 'InternetSecure.pm')
| -rwxr-xr-x | InternetSecure.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/InternetSecure.pm b/InternetSecure.pm index b9ca589..691d72b 100755 --- a/InternetSecure.pm +++ b/InternetSecure.pm @@ -210,11 +210,10 @@ sub to_xml { ); } - # The encode() is somewhat of a NOOP, but XML::Simple has some issues - # with the utf8 flag. + # The encode() makes sure to a) strip off non-Latin-1 characters, and + # b) turn off the utf8 flag, which confuses XML::Simple encode('ISO-8859-1', xml_out(\%data, NoAttr => 1, - NumericEscape => 1, RootName => 'TranxRequest', SuppressEmpty => undef, XMLDecl => '<?xml version="1.0" encoding="iso-8859-1" standalone="yes"?>', |