From 7dfee98d9f2cc0f82703551b304b5ecfef2146f0 Mon Sep 17 00:00:00 2001 From: ivan Date: Fri, 22 Nov 2002 12:11:47 +0000 Subject: [PATCH 1/1] 0.02 --- Changes | 3 +++ PayConnect.pm | 4 +++- 2 files changed, 6 insertions(+), 1 deletion(-) 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); -- 2.11.0