Strip off non-Latin-1 characters

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"?>',