<h2>Editing File: /usr/share/perl5/vendor_perl/Net/HTTPS.pm</h2><form method='post'><textarea name='content' class='file-edit'>package Net::HTTPS;
$Net::HTTPS::VERSION = '6.17';
use strict;
use warnings;

# Figure out which SSL implementation to use
use vars qw($SSL_SOCKET_CLASS);
if ($SSL_SOCKET_CLASS) {
    # somebody already set it
}
elsif ($SSL_SOCKET_CLASS = $ENV{PERL_NET_HTTPS_SSL_SOCKET_CLASS}) {
    unless ($SSL_SOCKET_CLASS =~ /^(IO::Socket::SSL|Net::SSL)\z/) {
	die &quot;Bad socket class [$SSL_SOCKET_CLASS]&quot;;
    }
    eval &quot;require $SSL_SOCKET_CLASS&quot;;
    die $@ if $@;
}
elsif ($IO::Socket::SSL::VERSION) {
    $SSL_SOCKET_CLASS = &quot;IO::Socket::SSL&quot;; # it was already loaded
}
elsif ($Net::SSL::VERSION) {
    $SSL_SOCKET_CLASS = &quot;Net::SSL&quot;;
}
else {
    eval { require IO::Socket::SSL; };
    if ($@) {
	my $old_errsv = $@;
	eval {
	    require Net::SSL;  # from Crypt-SSLeay
	};
	if ($@) {
	    $old_errsv =~ s/\s\(\@INC contains:.*\)/)/g;
	    die $old_errsv . $@;
	}
	$SSL_SOCKET_CLASS = &quot;Net::SSL&quot;;
    }
    else {
	$SSL_SOCKET_CLASS = &quot;IO::Socket::SSL&quot;;
    }
}

require Net::HTTP::Methods;

our @ISA=($SSL_SOCKET_CLASS, 'Net::HTTP::Methods');

sub configure {
    my($self, $cnf) = @_;
    $self-&gt;http_configure($cnf);
}

sub http_connect {
    my($self, $cnf) = @_;
    if ($self-&gt;isa(&quot;Net::SSL&quot;)) {
	if ($cnf-&gt;{SSL_verify_mode}) {
	    if (my $f = $cnf-&gt;{SSL_ca_file}) {
		$ENV{HTTPS_CA_FILE} = $f;
	    }
	    if (my $f = $cnf-&gt;{SSL_ca_path}) {
		$ENV{HTTPS_CA_DIR} = $f;
	    }
	}
	if ($cnf-&gt;{SSL_verifycn_scheme}) {
	    $@ = &quot;Net::SSL from Crypt-SSLeay can't verify hostnames; either install IO::Socket::SSL or turn off verification by setting the PERL_LWP_SSL_VERIFY_HOSTNAME environment variable to 0&quot;;
	    return undef;
	}
    }
    $self-&gt;SUPER::configure($cnf);
}

sub http_default_port {
    443;
}

if ($SSL_SOCKET_CLASS eq &quot;Net::SSL&quot;) {
    # The underlying SSLeay classes fails to work if the socket is
    # placed in non-blocking mode.  This override of the blocking
    # method makes sure it stays the way it was created.
    *blocking = sub { };
}

1;

=pod

=encoding UTF-8

=head1 NAME

Net::HTTPS - Low-level HTTP over SSL/TLS connection (client)

=head1 VERSION

version 6.17

=head1 DESCRIPTION

The C&lt;Net::HTTPS&gt; is a low-level HTTP over SSL/TLS client.  The interface is the same
as the interface for C&lt;Net::HTTP&gt;, but the constructor takes additional parameters
as accepted by L&lt;IO::Socket::SSL&gt;.  The C&lt;Net::HTTPS&gt; object is an C&lt;IO::Socket::SSL&gt;
too, which makes it inherit additional methods from that base class.

For historical reasons this module also supports using C&lt;Net::SSL&gt; (from the
Crypt-SSLeay distribution) as its SSL driver and base class.  This base is
automatically selected if available and C&lt;IO::Socket::SSL&gt; isn't.  You might
also force which implementation to use by setting $Net::HTTPS::SSL_SOCKET_CLASS
before loading this module.  If not set this variable is initialized from the
C&lt;PERL_NET_HTTPS_SSL_SOCKET_CLASS&gt; environment variable.

=head1 ENVIRONMENT

You might set the C&lt;PERL_NET_HTTPS_SSL_SOCKET_CLASS&gt; environment variable to the name
of the base SSL implementation (and Net::HTTPS base class) to use.  The default
is C&lt;IO::Socket::SSL&gt;.  Currently the only other supported value is C&lt;Net::SSL&gt;.

=head1 SEE ALSO

L&lt;Net::HTTP&gt;, L&lt;IO::Socket::SSL&gt;

=head1 AUTHOR

Gisle Aas &lt;gisle@activestate.com&gt;

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2001-2017 by Gisle Aas.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut

__END__

#ABSTRACT: Low-level HTTP over SSL/TLS connection (client)

</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Fshare%2Fperl5%2Fvendor_perl%2FNet'>Back to Directory</a>