[LON-CAPA-cvs] cvs: loncom /interface lonparmset.pm

[raeburn]

raeburn		Sun Nov 12 23:05:42 2017 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
  - Use three-argument open() to separate file mode from the filename.
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.582 loncom/interface/lonparmset.pm:1.583
--- loncom/interface/lonparmset.pm:1.582	Sat Jul 15 15:43:38 2017
+++ loncom/interface/lonparmset.pm	Sun Nov 12 23:05:42 2017
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.582 2017/07/15 15:43:38 raeburn Exp $
+# $Id: lonparmset.pm,v 1.583 2017/11/12 23:05:42 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -6397,7 +6397,7 @@
 
 # Reads parameter info from packages.tab into %standard_parms.
 sub load_parameter_names {
-    open(my $config,"<$Apache::lonnet::perlvar{'lonTabDir'}/packages.tab");
+    open(my $config,"<","$Apache::lonnet::perlvar{'lonTabDir'}/packages.tab");
     while (my $configline=<$config>) {
         if ($configline !~ /\S/ || $configline=~/^\#/) { next; }
         chomp($configline);