[LON-CAPA-cvs] cvs: loncom / lonlocal.pm lonssl.pm

foxr lon-capa-cvs@mail.lon-capa.org
Tue, 01 Jun 2004 09:53:44 -0000


foxr		Tue Jun  1 05:53:44 2004 EDT

  Modified files:              
    /loncom	lonlocal.pm lonssl.pm 
  Log:
  Fix up parameter passingot match Guy's standards.
  
  
Index: loncom/lonlocal.pm
diff -u loncom/lonlocal.pm:1.3 loncom/lonlocal.pm:1.4
--- loncom/lonlocal.pm:1.3	Fri May 28 06:20:03 2004
+++ loncom/lonlocal.pm	Tue Jun  1 05:53:44 2004
@@ -1,5 +1,5 @@
 #
-# $Id: lonlocal.pm,v 1.3 2004/05/28 10:20:03 foxr Exp $
+# $Id: lonlocal.pm,v 1.4 2004/06/01 09:53:44 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -41,7 +41,6 @@
 
 # CPAN/standard modules
 
-use English;
 use Crypt::IDEA;
 use Fcntl;
 
Index: loncom/lonssl.pm
diff -u loncom/lonssl.pm:1.6 loncom/lonssl.pm:1.7
--- loncom/lonssl.pm:1.6	Fri May 28 05:37:03 2004
+++ loncom/lonssl.pm	Tue Jun  1 05:53:44 2004
@@ -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 @@
 
 # CPAN/Standard  modules:
 
-use English;
 use IO::Socket::INET;
 use IO::Socket::SSL;
 
@@ -79,7 +78,7 @@
     my ($PlaintextSocket,
 	$CACert,
 	$MyCert,
-	$KeyFile)          = @ARG;
+	$KeyFile)          = @_;
     
     
     # To create the ssl socket we need to duplicate the existing
@@ -117,7 +116,7 @@
     my ($PlaintextSocket,
 	$CACert,
 	$MyCert,
-	$KeyFile)          = @ARG;
+	$KeyFile)          = @_;