From: ivan <ivan>
Date: Sat, 21 Dec 2002 10:39:48 +0000 (+0000)
Subject: quieter tests on older perl
X-Git-Tag: BUSINESS_ONLINEPAYMENT_PAYMENTSGATEWAY_0_02~4
X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-PaymentsGateway.git;a=commitdiff_plain;h=8d8e42986070327b2d8e1662fc5d045b5ae20954

quieter tests on older perl
---

diff --git a/PaymentsGateway.pm b/PaymentsGateway.pm
index 9d69b4c..93dd6ef 100644
--- a/PaymentsGateway.pm
+++ b/PaymentsGateway.pm
@@ -184,7 +184,7 @@ sub submit {
   }
 
   my $request = join("\n", map { "$_=". $content{$_} }
-                           grep { $content{$_} ne '' }
+                           grep { defined($content{$_}) && $content{$_} ne '' }
                            @fields                     ).
                 "\nendofdata\n";