- update https_get and https_post: now set headers for LWP / Crypt::SSLeay

[Business-OnlinePayment.git] / OnlinePayment / HTTPS.pm

diff --git a/OnlinePayment/HTTPS.pm b/OnlinePayment/HTTPS.pm
index ec01b70..3154297 100644 (file)
--- a/OnlinePayment/HTTPS.pm
+++ b/OnlinePayment/HTTPS.pm
@@ -155,7 +155,10 @@ sub https_get {
           unless $self->port == 443;
         $url .= "/$path";
 
-        my $ua  = new LWP::UserAgent;
+        my $ua = new LWP::UserAgent;
+        foreach my $hdr ( keys %headers ) {
+            $ua->default_header( $hdr => $headers{$hdr} );
+        }
         my $res = $ua->request( GET($url) );
 
         (
@@ -258,6 +261,9 @@ sub https_post {
         }
 
         my $ua = new LWP::UserAgent;
+        foreach my $hdr ( keys %headers ) {
+            $ua->default_header( $hdr => $headers{$hdr} );
+        }
 
         my $res;
         if ( ref($post_data) ) {