diff options
| author | ivan <ivan> | 2008-06-27 11:43:35 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2008-06-27 11:43:35 +0000 |
| commit | 70bd3550f03d20ad22884c93ed2cb93627843736 (patch) | |
| tree | f3ec67dbad1980bbd7c596994902e88dff090bd3 /lib/Net | |
| parent | 4736a732365ff588d87b1e741ab75f700d72ceb8 (diff) | |
don't cause uninitialized value warnings when debugging is off...
Diffstat (limited to 'lib/Net')
| -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'}, |