http response code no longer includes version even when using Net::SSLeay

diff --git a/Changes b/Changes
index a05532f..1375865 100644 (file)
--- a/Changes
+++ b/Changes
@@ -5,6 +5,8 @@ Revision history for Perl extension Business::OnlinePayment.
         - doc: Recurring billing actions and fields
         - doc: new standard fields track1, track2, patch from Chris Travers,
           thanks!
+        - B:OP:HTTPS: Normalize https_get and https_post response_code to
+          "NNN message" without HTTP version even when using Net::SSLeay.
 
 3.00_08  Wed Jun 13 17:51:14 PDT 2007
         - B:OP:HTTPS: set response_page, response_code, response_headers

diff --git a/OnlinePayment/HTTPS.pm b/OnlinePayment/HTTPS.pm
index 1f44397..cb51905 100644 (file)
--- a/OnlinePayment/HTTPS.pm
+++ b/OnlinePayment/HTTPS.pm
@@ -6,7 +6,7 @@ use URI::Escape;
 use Tie::IxHash;
 use base qw(Business::OnlinePayment);
 
-$VERSION = '0.08';
+$VERSION = '0.09';
 $DEBUG   = 0;
 
 BEGIN {
@@ -155,6 +155,8 @@ sub https_get {
                      $opts->{"Content-Type"},
                    );
 
+        $res_code =~ /^(HTTP\S+ )?(.*)/ and $res_code = $2;
+
         $self->response_page( $res_page );
         $self->response_code( $res_code );
         $self->response_headers( { @res_headers } );
@@ -276,6 +278,8 @@ sub https_post {
                       $opts->{"Content-Type"},
                     );
 
+        $res_code =~ /^(HTTP\S+ )?(.*)/ and $res_code = $2;
+
         $self->response_page( $res_page );
         $self->response_code( $res_code );
         $self->response_headers( { @res_headers } );