[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) = @_;