--- loncom/lonssl.pm	2004/05/28 09:37:03	1.6
+++ loncom/lonssl.pm	2004/06/01 09:53:44	1.7
@@ -1,5 +1,5 @@
 #
-# $Id: lonssl.pm,v 1.6 2004/05/28 09:37:03 foxr Exp $
+# $Id: lonssl.pm,v 1.7 2004/06/01 09:53:44 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -35,7 +35,6 @@ use strict;
 
 # CPAN/Standard  modules:
 
-use English;
 use IO::Socket::INET;
 use IO::Socket::SSL;
 
@@ -79,7 +78,7 @@ sub PromoteClientSocket {
     my ($PlaintextSocket,
 	$CACert,
 	$MyCert,
-	$KeyFile)          = @ARG;
+	$KeyFile)          = @_;
     
     
     # To create the ssl socket we need to duplicate the existing
@@ -117,7 +116,7 @@ sub PromoteServerSocket {
     my ($PlaintextSocket,
 	$CACert,
 	$MyCert,
-	$KeyFile)          = @ARG;
+	$KeyFile)          = @_;