$ENV{PERL_NET_HTTPS_SSL_SOCKET_CLASS} to override the default choice …

…of IO::Socket::SSL
gisle · Feb 13, 2011 · c2150df · c2150df
1 parent 4fe1741
commit c2150df
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/lib/Net/HTTPS.pm b/lib/Net/HTTPS.pm
@@ -9,6 +9,13 @@ $VERSION = "5.819";
 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 "Bad socket class [$SSL_SOCKET_CLASS]";
+    }
+    eval "require $SSL_SOCKET_CLASS";
+    die $@ if $@;
+}
 elsif ($IO::Socket::SSL::VERSION) {
     $SSL_SOCKET_CLASS = "IO::Socket::SSL"; # it was already loaded
 }