--- loncom/metadata_database/LONCAPA/lonmetadata.pm 2007/01/02 12:53:27 1.16 +++ loncom/metadata_database/LONCAPA/lonmetadata.pm 2007/01/12 21:30:58 1.17 @@ -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 @@ sub getfile { if (! -e $file ) { return undef; } - my $fh=IO::File->new($file); + open(my $fh,"<$file"); my $contents = ''; while (<$fh>) { $contents .= $_;