0.02

diff --git a/Changes b/Changes
index 2b6d101..a6b1c48 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Perl extension Business::OnlinePayment::PayConnect.
 
 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
 
 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 (file)
--- a/PayConnect.pm
+++ b/PayConnect.pm
@@ -12,7 +12,7 @@ require Exporter;
 @ISA = qw(Exporter AutoLoader Business::OnlinePayment);
 @EXPORT = qw();
 @EXPORT_OK = qw();
 @ISA = qw(Exporter AutoLoader Business::OnlinePayment);
 @EXPORT = qw();
 @EXPORT_OK = qw();

-$VERSION = '0.01';
+$VERSION = '0.02';

 
 $DEBUG = 0;
 
 
 $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);
 
     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);
     #warn join('-',%headers);
     #warn $page;
     my %response = map { split('=',$_,2) } split(/\|/,$page);