diff options
Diffstat (limited to 'lib/Net/HTTPS')
| -rw-r--r-- | lib/Net/HTTPS/Any.pm | 6 |
1 files changed, 4 insertions, 2 deletions
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'}, |