From 980eb51ffc64f7f42d72fef8b786843a97d9f3c2 Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Fri, 11 Jul 2008 00:48:03 +0000
Subject: [PATCH] http response code no longer includes version even when using
 Net::SSLeay

---
 Changes                | 2 ++
 OnlinePayment/HTTPS.pm | 6 +++++-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index a05532f..1375865 100644
--- 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
--- 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 } );
-- 
2.11.0