- Updated servers used for testing in examples and tests

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

diff --git a/lib/Net/HTTPS/Any.pm b/lib/Net/HTTPS/Any.pm
index e03c5d7..f431fa8 100644 (file)
--- 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;