quiet Net::SSLeay warnings

diff --git a/Changes b/Changes
index 0bb9412..378d12e 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Net-HTTPS-Any
 
 Revision history for Net-HTTPS-Any
 

+0.13    unreleased
+        - quiet "Use of uninitialized value" warnings from Net::SSLeay
+

 0.12    Wed Aug  3 12:01:08 PDT 2016
         - Get rid of the LWP codepath, now just a simple wrapper for
           Business::OnlinePayment
 0.12    Wed Aug  3 12:01:08 PDT 2016
         - Get rid of the LWP codepath, now just a simple wrapper for
           Business::OnlinePayment

diff --git a/lib/Net/HTTPS/Any.pm b/lib/Net/HTTPS/Any.pm
index 8224494..e3b51dc 100644 (file)
--- a/lib/Net/HTTPS/Any.pm
+++ b/lib/Net/HTTPS/Any.pm
@@ -16,7 +16,7 @@ Net::HTTPS::Any - Simple HTTPS client
 
 =cut
 
 
 =cut
 

-our $VERSION = '0.12';
+our $VERSION = '0.13';

 
 =head1 SYNOPSIS
 
 
 =head1 SYNOPSIS
 


@@ -131,6 +131,8 @@ sub https_get {
     $Net::SSLeay::trace = $opts->{'debug'}
       if exists $opts->{'debug'} && $opts->{'debug'};
 
     $Net::SSLeay::trace = $opts->{'debug'}
       if exists $opts->{'debug'} && $opts->{'debug'};
 

+    no warnings 'uninitialized';
+

     my( $res_page, $res_code, @res_headers ) =
       get_https( $opts->{'host'},
                  $opts->{'port'},
     my( $res_page, $res_code, @res_headers ) =
       get_https( $opts->{'host'},
                  $opts->{'port'},


@@ -224,6 +226,8 @@ sub https_post {
     $Net::SSLeay::trace = $opts->{'debug'}
       if exists $opts->{'debug'} && $opts->{'debug'};
 
     $Net::SSLeay::trace = $opts->{'debug'}
       if exists $opts->{'debug'} && $opts->{'debug'};
 

+    no warnings 'uninitialized';
+

     my( $res_page, $res_code, @res_headers ) =
       post_https( $opts->{'host'},
                   $opts->{'port'},
     my( $res_page, $res_code, @res_headers ) =
       post_https( $opts->{'host'},
                   $opts->{'port'},