[LON-CAPA-cvs] cvs: loncom /metadata_database/LONCAPA lonmetadata.pm

albertel lon-capa-cvs@mail.lon-capa.org
Fri, 12 Jan 2007 21:30:59 -0000


albertel		Fri Jan 12 16:30:59 2007 EDT

  Modified files:              
    /loncom/metadata_database/LONCAPA	lonmetadata.pm 
  Log:
  - eliminating a dependency
  
  
Index: loncom/metadata_database/LONCAPA/lonmetadata.pm
diff -u loncom/metadata_database/LONCAPA/lonmetadata.pm:1.16 loncom/metadata_database/LONCAPA/lonmetadata.pm:1.17
--- loncom/metadata_database/LONCAPA/lonmetadata.pm:1.16	Tue Jan  2 07:53:27 2007
+++ loncom/metadata_database/LONCAPA/lonmetadata.pm	Fri Jan 12 16:30:58 2007
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonmetadata.pm,v 1.16 2007/01/02 12:53:27 raeburn Exp $
+# $Id: lonmetadata.pm,v 1.17 2007/01/12 21:30:58 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1134,7 +1134,7 @@
     if (! -e $file ) { 
         return undef; 
     }
-    my $fh=IO::File->new($file);
+    open(my $fh,"<$file");
     my $contents = '';
     while (<$fh>) { 
         $contents .= $_;