diff options
| author | ivan <ivan> | 2010-05-01 20:37:58 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2010-05-01 20:37:58 +0000 |
| commit | a39c911f8c4def7e6f57b1c2349642bd58696742 (patch) | |
| tree | 16132cf5c0738cfebfaded890ada1d20d2b2a55b /lib | |
| parent | 90eca2090a47dd4755de4fa707597ff2c025ecaa (diff) | |
- Updated servers used for testing in examples and tests
- Supress uninitialized value warnings from Net::SSLeay
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Net/HTTPS/Any.pm | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/lib/Net/HTTPS/Any.pm b/lib/Net/HTTPS/Any.pm index e03c5d7..f431fa8 100644 --- a/lib/Net/HTTPS/Any.pm +++ b/lib/Net/HTTPS/Any.pm @@ -55,19 +55,17 @@ our $VERSION = '0.10'; ( $page, $response, %reply_headers ) = https_get( - { 'host' => 'secure.sisd.com', + { 'host' => 'www.fortify.net', 'port' => 443, - 'path' => '/freeside/index.html', - 'args' => { 'field' => 'value' }, - #'args' => [ 'field'=>'value' ], #order preserved + 'path' => '/sslcheck.html', }, ); ( $page, $response, %reply_headers ) = https_post( - 'host' => 'secure.sisd.com', + 'host' => 'www.google.com', 'port' => 443, - 'path' => '/freeside/index.html', + 'path' => '/accounts/ServiceLoginAuth', 'args' => { 'field' => 'value' }, #'args' => [ 'field'=>'value' ], #order preserved ); @@ -168,6 +166,8 @@ sub https_get { if ( $ssl_module eq 'Net::SSLeay' ) { + no warnings 'uninitialized'; + import Net::SSLeay qw(get_https make_headers); my $headers = make_headers(%headers); @@ -284,13 +284,13 @@ sub https_post { if ( $ssl_module eq 'Net::SSLeay' ) { + no warnings 'uninitialized'; + import Net::SSLeay qw(post_https make_headers make_form); my $headers = make_headers(%headers); - if ($opts->{debug}) { - no warnings 'uninitialized'; - $Net::SSLeay::trace = $opts->{debug}; - } + $Net::SSLeay::trace = $opts->{'debug'} + if exists $opts->{'debug'} && $opts->{'debug'}; my $raw_data = ref($post_data) ? make_form(%$post_data) : $post_data; |