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

raeburn raeburn at source.lon-capa.org
Sun Dec 2 22:40:39 EST 2018


raeburn		Mon Dec  3 03:40:39 2018 EDT

  Modified files:              
    /loncom	lonssl.pm 
  Log:
  - Use three-argument open() to separate file mode from the filename.
  - Remove some trailing whitespace.
  
  
Index: loncom/lonssl.pm
diff -u loncom/lonssl.pm:1.19 loncom/lonssl.pm:1.20
--- loncom/lonssl.pm:1.19	Mon Aug 20 18:53:20 2018
+++ loncom/lonssl.pm	Mon Dec  3 03:40:39 2018
@@ -1,5 +1,5 @@
 #
-# $Id: lonssl.pm,v 1.19 2018/08/20 18:53:20 raeburn Exp $
+# $Id: lonssl.pm,v 1.20 2018/12/03 03:40:39 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -238,7 +238,7 @@
         $sslargs{SSL_verify_mode} = Net::SSLeay::VERIFY_PEER();
         if (($CRLFile ne '') && (-e $CRLFile)) {
             $sslargs{SSL_check_crl} = 1;
-            $sslargs{SSL_crl_file} = $CRLFile; 
+            $sslargs{SSL_crl_file} = $CRLFile;
         }
     }
     my $client = IO::Socket::SSL->new_from_fd($dupfno,%sslargs);
@@ -425,7 +425,7 @@
 
     my $result;
     my $tablename = $perlvarref->{'lonTabDir'}."/connectionrules.tab";
-    if (open(my $fh,"<$tablename")) {
+    if (open(my $fh,'<',$tablename)) {
         while (my $line = <$fh>) {
             chomp($line);
             my ($name,$value) = split(/=/,$line);
@@ -448,7 +448,7 @@
     unless (ref($perlvarref) eq 'HASH') {
         $perlvarref = $perlvar;
     }
-   
+
     # Clean out the old table first.
     foreach my $key (keys(%{$hosttypes})) {
         delete($hosttypes->{$key});
@@ -456,7 +456,7 @@
 
     my $result;
     my $tablename = $perlvarref->{'lonTabDir'}."/hosttypes.tab";
-    if (open(my $fh,"<$tablename")) {
+    if (open(my $fh,'<',$tablename)) {
         while (my $line = <$fh>) {
             chomp($line);
             my ($name,$value) = split(/:/,$line);




More information about the LON-CAPA-cvs mailing list