version 1.111, 2006/05/12 00:02:22
|
version 1.113, 2006/05/25 21:09:45
|
Line 597 sub readmap {
|
Line 597 sub readmap {
|
} elsif ($key =~ /^(map_(?:start|finish|pc)_)(.*)/) { |
} elsif ($key =~ /^(map_(?:start|finish|pc)_)(.*)/) { |
my ($type, $url) = ($1,$2); |
my ($type, $url) = ($1,$2); |
my $value = $hash{$key}; |
my $value = $hash{$key}; |
delete($hash{$key}); |
|
$hash{$type.&putinversion($url)}=$value; |
$hash{$type.&putinversion($url)}=$value; |
} |
} |
} |
} |
Line 682 sub evalstate {
|
Line 681 sub evalstate {
|
if (-e $fn) { |
if (-e $fn) { |
my @conditions=(); |
my @conditions=(); |
{ |
{ |
my $fh=Apache::File->new($fn); |
open(my $fh,$fn); |
@conditions=<$fh>; |
@conditions=<$fh>; |
} |
} |
my $safeeval = new Safe; |
my $safeeval = new Safe; |