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

[albertel]

albertel		Fri Aug 25 13:49:15 2006 EDT

  Modified files:              
    /loncom	lonssl.pm 
  Log:
  - more bad syntax bug#4975
  
  
Index: loncom/lonssl.pm
diff -u loncom/lonssl.pm:1.9 loncom/lonssl.pm:1.10
--- loncom/lonssl.pm:1.9	Thu Jun 17 06:15:46 2004
+++ loncom/lonssl.pm	Fri Aug 25 13:49:15 2006
@@ -1,5 +1,5 @@
 #
-# $Id: lonssl.pm,v 1.9 2004/06/17 10:15:46 foxr Exp $
+# $Id: lonssl.pm,v 1.10 2006/08/25 17:49:15 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -273,8 +273,8 @@
     #   Build the actual filenames and check for their existence and
     #   readability.
     
-    my $CaFilename   = $CertificateDir.$pathsep.$CaFilename;
-    my $CertFilename = $CertificateDir.$pathsep.$CertFilename;
+    $CaFilename   = $CertificateDir.$pathsep.$CaFilename;
+    $CertFilename = $CertificateDir.$pathsep.$CertFilename;
     
     if((! -r $CaFilename) || (! -r $CertFilename)) {
 	$lasterror = "CA file $CaFilename or Cert File: $CertFilename "
@@ -314,7 +314,7 @@
     # Build the actual filename and ensure that it not only exists but
     # is also readable:
     
-    my $KeyFilename    = $CertificateDir.$pathsep.$KeyFilename;
+    $KeyFilename    = $CertificateDir.$pathsep.$KeyFilename;
     if(! (-r $KeyFilename)) {
 	$lasterror = "Unreadable key file $KeyFilename";
 	return undef;