Let's not encode high-bit ISO-8859-1 characters

diff --git a/InternetSecure.pm b/InternetSecure.pm
index cb6d00e..b9ca589 100755 (executable)
--- a/InternetSecure.pm
+++ b/InternetSecure.pm
@@ -210,13 +210,15 @@ sub to_xml {
                                );
        }
 
-       xml_out(\%data,
+       # The encode() is somewhat of a NOOP, but XML::Simple has some issues
+       # with the utf8 flag.
+       encode('ISO-8859-1', xml_out(\%data,
                NoAttr          => 1,
-               NumericEscape   => 2,
+               NumericEscape   => 1,
                RootName        => 'TranxRequest',
                SuppressEmpty   => undef,
                XMLDecl         => '<?xml version="1.0" encoding="iso-8859-1" standalone="yes"?>',
-       );
+       ));
 }
 
 # Map the various fields from the response, and put their values into our