--- loncom/cgi/ping.pl	2002/09/09 14:18:56	1.3
+++ loncom/cgi/ping.pl	2003/02/25 20:50:31	1.4
@@ -12,6 +12,8 @@ use LONCAPA::Configuration;
 use IO::File;
 use IO::Socket;
 
+my %perlvar;
+
 # -------------------------------------------------- Non-critical communication
 sub reply {
     my ($cmd,$server)=@_;
@@ -30,7 +32,7 @@ sub reply {
 
 # --------------------- Read loncapa.conf (and by default loncapa_apache.conf).
 my $perlvarref=LONCAPA::Configuration::read_conf('loncapa.conf');
-my %perlvar=%{$perlvarref};
+%perlvar=%{$perlvarref};
 undef $perlvarref; # remove since sensitive and not needed
 delete $perlvar{'lonReceipt'}; # remove since sensitive and not needed
 delete $perlvar{'lonSqlAccess'}; # remove since sensitive and not needed