95 |
my $path = 'casket'; |
my $path = 'casket'; |
96 |
$path =~ s!/+$!!; |
$path =~ s!/+$!!; |
97 |
|
|
98 |
$self->{_casket_path} = $path; |
$path .= '/' . $self->{database}; |
99 |
|
|
100 |
|
$self->{path} = $path; |
101 |
|
|
102 |
$path .= '.tmp'; |
$path .= '.tmp'; |
103 |
if (-e $path) { |
if (-e $path) { |
269 |
|
|
270 |
$self->{db}->close || $log->logdie("can't close index"); |
$self->{db}->close || $log->logdie("can't close index"); |
271 |
|
|
272 |
my $path = $self->{_casket_path} || $log->logdie("no _casket_path?"); |
my $path = $self->{path} || $log->logdie("no path?"); |
273 |
|
|
274 |
if (-e $path) { |
if (-e $path) { |
275 |
$log->warn("removing old $path"); |
$log->warn("removing old $path"); |