[LON-CAPA-cvs] cvs: loncom /cgi ping.pl

[www]

www		Tue Feb 25 15:50:31 2003 EDT

  Modified files:              
    /loncom/cgi	ping.pl 
  Log:
  When doing the transition to LONCAPA::Configuration, there should not have
  been a "my" in front of the perlvar hash.
  
  
Index: loncom/cgi/ping.pl
diff -u loncom/cgi/ping.pl:1.3 loncom/cgi/ping.pl:1.4
--- loncom/cgi/ping.pl:1.3	Mon Sep  9 10:18:56 2002
+++ loncom/cgi/ping.pl	Tue Feb 25 15:50:31 2003
@@ -12,6 +12,8 @@
 use IO::File;
 use IO::Socket;
 
+my %perlvar;
+
 # -------------------------------------------------- Non-critical communication
 sub reply {
     my ($cmd,$server)=@_;
@@ -30,7 +32,7 @@
 
 # --------------------- 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