Let XML::Simple handle undefs itself

1 files changed, 1 insertions, 4 deletions

diff --git a/InternetSecure.pm b/InternetSecure.pm
index b90f187..86e16e2 100755
--- a/InternetSecure.pm
+++ b/InternetSecure.pm
@@ -75,10 +75,6 @@ sub get_remap_fields {
 	$self->remap_fields(reverse %map);
 	my %data = $self->get_fields(keys %map);
 
-	foreach (values %data) {
-		$_ = '' unless defined;
-	}
-
 	return %data;
 }
 
@@ -219,6 +215,7 @@ sub to_xml {
 	xml_out(\%data,
 		NoAttr => 1,
 		RootName => 'TranxRequest',
+		SuppressEmpty => undef,
 		XMLDecl => '<?xml version="1.0" encoding="utf-8" standalone="yes"?>',
 	);
 }