version 1.2, 2006/05/30 12:45:12
|
version 1.4, 2006/05/30 19:26:34
|
Line 177 sub _do_hash_tie {
|
Line 177 sub _do_hash_tie {
|
# make the history log entry: |
# make the history log entry: |
if (($namespace !~/^nohist\_/) && (defined($loghead))) { |
if (($namespace !~/^nohist\_/) && (defined($loghead))) { |
my $args = scalar @_; |
my $args = scalar @_; |
Debug(" Opening history: $file_prefix $args"); |
|
my $hfh = IO::File->new(">>$file_prefix.hist"); |
my $hfh = IO::File->new(">>$file_prefix.hist"); |
if($hfh) { |
if($hfh) { |
my $now = time; |
my $now = time; |
Line 279 sub _do_hash_untie {
|
Line 278 sub _do_hash_untie {
|
} |
} |
|
|
BEGIN { |
BEGIN { |
my $perlvarref=LONCAPA::Configuration::read_conf('loncapa.conf'); |
%perlvar=%{&LONCAPA::Configuration::read_conf('loncapa.conf')}; |
%perlvar=%{$perlvarref}; |
|
undef $perlvarref; |
|
} |
} |
|
|
1; |
1; |