--- loncom/configuration/Configuration.pm	2002/05/04 00:03:29	1.2
+++ loncom/configuration/Configuration.pm	2002/05/04 02:58:37	1.3
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Configuration file reader
 #
-# $Id: Configuration.pm,v 1.2 2002/05/04 00:03:29 harris41 Exp $
+# $Id: Configuration.pm,v 1.3 2002/05/04 02:58:37 harris41 Exp $
 #
 #
 # Copyright Michigan State University Board of Trustees
@@ -33,7 +33,7 @@
 
 package LONCAPA::Configuration;
 
-$VERSION = sprintf("%d.%02d", q$Revision: 1.2 $ =~ /(\d+)\.(\d+)/);
+$VERSION = sprintf("%d.%02d", q$Revision: 1.3 $ =~ /(\d+)\.(\d+)/);
 
 use strict;
 
@@ -44,7 +44,7 @@ sub read_conf {
     my (@conf_files)=@_;
     my %perlvar;
     foreach my $filename (@conf_files) {
-	open(CONFIG,'<'.$confdir.$filename) or die("Can't read $filename");
+	open(CONFIG,'<'.$confdir.$filename) or die("Can't read $confdir$filename");
 	while (my $configline=<CONFIG>) {
 	    if ($configline =~ /^[^\#]*PerlSetVar/) {
 		my ($unused,$varname,$varvalue)=split(/\s+/,$configline);