get_fields now filters out undefs in 3.x

1 files changed, 12 insertions, 0 deletions

diff --git a/InternetSecure.pm b/InternetSecure.pm
index 58a6ce7..b90f187 100755
--- a/InternetSecure.pm
+++ b/InternetSecure.pm
@@ -43,6 +43,18 @@ sub set_defaults {
 			));
 }
 
+# OnlinePayment's get_fields now filters out undefs in 3.x. :(
+#
+sub get_fields {
+	my ($self, @fields) = @_;
+
+	my %content = $self->content;
+
+	my %new = map +($_ => $content{$_}), @fields;
+
+	return %new;
+}
+
 # OnlinePayment's remap_fields is buggy, so we simply rewrite it
 #
 sub remap_fields {