quiet Net::SSLeay warnings

[Net-HTTPS-Any.git] / lib / Net / HTTPS / Any.pm

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
 
-our $VERSION = '0.12';
+our $VERSION = '0.13';
 
 =head1 SYNOPSIS
 
@@ -131,6 +131,8 @@ sub https_get {
     $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'},
@@ -224,6 +226,8 @@ sub https_post {
     $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'},