From: ivan <ivan>
Date: Fri, 22 Nov 2002 12:11:47 +0000 (+0000)
Subject: 0.02
X-Git-Tag: BUSINESS_ONLINEPAYMENT_PAYCONNECT_0_02
X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-PayConnect.git;a=commitdiff_plain;h=refs%2Fheads%2Fmaster

0.02
---

diff --git a/Changes b/Changes
index 2b6d101..a6b1c48 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Perl extension Business::OnlinePayment::PayConnect.
 
+0.02  Fri Nov 22 04:11:24 PST 2002
+	-trim trailing newline+CR from response
+
 0.01  Sat Nov 17 21:59:37 PST 2002
 	-original version; created by ivan 1.0
 
diff --git a/PayConnect.pm b/PayConnect.pm
index 3cdceb5..a691500 100644
--- a/PayConnect.pm
+++ b/PayConnect.pm
@@ -12,7 +12,7 @@ require Exporter;
 @ISA = qw(Exporter AutoLoader Business::OnlinePayment);
 @EXPORT = qw();
 @EXPORT_OK = qw();
-$VERSION = '0.01';
+$VERSION = '0.02';
 
 $DEBUG = 0;
 
@@ -101,6 +101,8 @@ sub submit {
     my $pd = make_form(%post_data);
     my($page,$server_response,%headers) = post_https($s,$p,$t,'',$pd);
 
+    $page =~ s/\r*\n*$//;
+
     #warn join('-',%headers);
     #warn $page;
     my %response = map { split('=',$_,2) } split(/\|/,$page);