X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=lib%2FNet%2FHTTPS%2FAny.pm;h=d42b618bc7796e07ca182f97b972ec8da3657ab4;hb=70bd3550f03d20ad22884c93ed2cb93627843736;hp=d0ef929d786a2f89e26e99aef0fb811c744df75a;hpb=4736a732365ff588d87b1e741ab75f700d72ceb8;p=Net-HTTPS-Any.git

diff --git a/lib/Net/HTTPS/Any.pm b/lib/Net/HTTPS/Any.pm
index d0ef929..d42b618 100644
--- a/lib/Net/HTTPS/Any.pm
+++ b/lib/Net/HTTPS/Any.pm
@@ -161,7 +161,8 @@ sub https_get {
         import Net::SSLeay qw(get_https make_headers);
         my $headers = make_headers(%headers);
 
-        $Net::SSLeay::trace = $opts->{'debug'} if exists $opts->{'debug'};
+        $Net::SSLeay::trace = $opts->{'debug'}
+          if exists $opts->{'debug'} && $opts->{'debug'};
 
         my( $res_page, $res_code, @res_headers ) =
           get_https( $opts->{'host'},
@@ -273,7 +274,8 @@ sub https_post {
 
         my $raw_data = ref($post_data) ? make_form(%$post_data) : $post_data;
 
-        $Net::SSLeay::trace = $opts->{'debug'} if exists $opts->{'debug'};
+        $Net::SSLeay::trace = $opts->{'debug'}
+          if exists $opts->{'debug'} && $opts->{'debug'};
 
         my( $res_page, $res_code, @res_headers ) =
           post_https( $opts->{'host'},