version 1.443, 2003/11/10 20:27:32
|
version 1.445, 2003/11/10 22:12:52
|
Line 895 EVALBLOCK
|
Line 895 EVALBLOCK
|
} |
} |
} else { |
} else { |
if (-e $filename) { |
if (-e $filename) { |
&logthis("Unable to tie hash (save cache item): $name"); |
&logthis("Unable to tie hash (save cache item): $name ($!)"); |
unlink($filename); |
unlink($filename); |
} |
} |
} |
} |
Line 939 EVALBLOCK
|
Line 939 EVALBLOCK
|
} |
} |
} else { |
} else { |
if (-e $filename) { |
if (-e $filename) { |
&logthis("Unable to tie hash (load cache item): $name"); |
&logthis("Unable to tie hash (load cache item): $name ($!)"); |
unlink($filename); |
unlink($filename); |
} |
} |
} |
} |
Line 4069 sub fixversion {
|
Line 4069 sub fixversion {
|
&GDBM_READER(),0640)) { |
&GDBM_READER(),0640)) { |
if ($bighash{'version_'.$uri}) { |
if ($bighash{'version_'.$uri}) { |
my $version=$bighash{'version_'.$uri}; |
my $version=$bighash{'version_'.$uri}; |
unless ($version eq 'mostrecent') { |
unless (($version eq 'mostrecent') || |
|
($version==&getversion($uri))) { |
$uri=~s/\.(\w+)$/\.$version\.$1/; |
$uri=~s/\.(\w+)$/\.$version\.$1/; |
} |
} |
} |
} |