--- loncom/lonssl.pm	2006/08/25 17:49:15	1.10
+++ loncom/lonssl.pm	2015/11/07 18:41:11	1.13
@@ -1,5 +1,5 @@
 #
-# $Id: lonssl.pm,v 1.10 2006/08/25 17:49:15 albertel Exp $
+# $Id: lonssl.pm,v 1.13 2015/11/07 18:41:11 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -143,10 +143,10 @@ sub PromoteClientSocket {
 
     
     my $client = IO::Socket::SSL->new_from_fd($dupfno,
-					      SSL_user_cert => 1,
+					      SSL_use_cert => 1,
 					      SSL_key_file  => $KeyFile,
 					      SSL_cert_file => $MyCert,
-					      SSL_ca_fie    => $CACert);
+					      SSL_ca_file   => $CACert);
     
     if(!$client) {
 	$lasterror = IO::Socket::SSL::errstr();
@@ -196,10 +196,10 @@ sub PromoteServerSocket {
     Debug(" Fileno = $dupfno\n");
     my $client = IO::Socket::SSL->new_from_fd($dupfno,
 					      SSL_server    => 1, # Server role.
-					      SSL_user_cert => 1,
+					      SSL_use_cert  => 1,
 					      SSL_key_file  => $KeyFile,
 					      SSL_cert_file => $MyCert,
-					      SSL_ca_fie    => $CACert);
+					      SSL_ca_file   => $CACert);
     if(!$client) {
 	$lasterror = IO::Socket::SSL::errstr();
 	return undef;