--- loncom/LONCAPA.pm	2006/05/30 12:45:12	1.2
+++ loncom/LONCAPA.pm	2006/05/30 19:26:34	1.4
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Base routines
 #
-# $Id: LONCAPA.pm,v 1.2 2006/05/30 12:45:12 www Exp $
+# $Id: LONCAPA.pm,v 1.4 2006/05/30 19:26:34 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -177,7 +177,6 @@ sub _do_hash_tie {
 	# make the history log entry:    
 	if (($namespace !~/^nohist\_/) && (defined($loghead))) {
 	    my $args = scalar @_;
-	    Debug(" Opening history: $file_prefix $args");
 	    my $hfh = IO::File->new(">>$file_prefix.hist"); 
 	    if($hfh) {
 		my $now = time;
@@ -279,9 +278,7 @@ sub _do_hash_untie {
 }
 
 BEGIN {
-    my $perlvarref=LONCAPA::Configuration::read_conf('loncapa.conf');
-    %perlvar=%{$perlvarref};
-    undef $perlvarref;
+    %perlvar=%{&LONCAPA::Configuration::read_conf('loncapa.conf')};
 }
 
 1;