[LON-CAPA-cvs] cvs: rat / lonuserstate.pm

[raeburn]

raeburn		Tue May 30 15:11:38 2006 EDT

  Modified files:              
    /rat	lonuserstate.pm 
  Log:
  Closing filehandle after reading.
  
  
Index: rat/lonuserstate.pm
diff -u rat/lonuserstate.pm:1.114 rat/lonuserstate.pm:1.115
--- rat/lonuserstate.pm:1.114	Tue May 30 13:15:10 2006
+++ rat/lonuserstate.pm	Tue May 30 15:11:37 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Construct and maintain state and binary representation of course for user
 #
-# $Id: lonuserstate.pm,v 1.114 2006/05/30 17:15:10 www Exp $
+# $Id: lonuserstate.pm,v 1.115 2006/05/30 19:11:37 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -686,8 +686,9 @@
     if (-e $fn) {
 	my @conditions=();
 	{
-	    open(my $fh,$fn);
+	    open(my $fh,"<$fn");
 	    @conditions=<$fh>;
+            close($fh);
 	}  
 	my $safeeval = new Safe;
 	my $safehole = new Safe::Hole;