Hi All -

I'm using Crypt-SSLeay-0.35 on a FreeBSD system.  I've consistently
seen the following errors and finally got around to investigating
what might be causing them:

Use of uninitialized value in substitution (s///) at 
/usr/local/lib/perl5/site_perl/5.6.1/mach/Net/SSL.pm line 363.
Use of uninitialized value in division (/) at 
/usr/local/lib/perl5/site_perl/5.6.1/mach/Net/SSL.pm line 115.

I've included the following patch if anyone is interested and/or to
be used in future revisions.

I'm not on this list, so please cc me directly.

Thanks!
-- 
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Doug Silver
Network Manager
Urchin Software Corp.   http://www.urchin.com
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
--- SSL.pm      Wed Oct 31 18:55:56 2001
+++ SSL.pm.new  Sun Jun 16 10:10:05 2002
@@ -112,8 +112,10 @@
        if ($^O ne 'MSWin32') {
            $SIG{ALRM} = sub { $self->die_with_error("SSL connect
timeout") };
            # timeout / 2 because we have 3 possible connects here
-           my $alarm_timeout = ($self->timeout / 2) || 60;
-           alarm($alarm_timeout);
+           if (defined $self->timeout) {
+              my $alarm_timeout = ($self->timeout / 2) || 60;
+              alarm($alarm_timeout);
+           }
        }
 
        my $rv;
@@ -360,7 +362,7 @@
        $proxy_server = $ENV{$_};
        last if $proxy_server;
     }
-    $proxy_server =~ s|^https?://||i;
+    if (defined $proxy_server){$proxy_server =~ s|^https?://||i;}
     
     $proxy_server;
 }

______________________________________________________________________
OpenSSL Project                                 http://www.openssl.org
User Support Mailing List                    [EMAIL PROTECTED]
Automated List Manager                           [EMAIL PROTECTED]

Reply via email to