X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-PayConnect.git;a=blobdiff_plain;f=PayConnect.pm;h=a691500ab6abc090434964aa09afdc371f5f52b1;hp=3cdceb53040907667ad8e378e8bbb28de1322dc6;hb=refs%2Fheads%2Fmaster;hpb=db391b4952c6c218e3ad1c3e88e3bee666320912 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);