Let XML::Simple handle undefs itself

diff --git a/InternetSecure.pm b/InternetSecure.pm
index b90f187..86e16e2 100755 (executable)
--- 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"?>',
        );
 }