Changeset 23172
- Timestamp:
- 2010-10-19T14:56:03+13:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/basebuilder.pm
r23159 r23172 486 486 487 487 &dbutil::close_infodb_write_handle($infodb_type, $infodb_handle) if !$self->{'debug'}; 488 488 489 if ($infodb_type eq "gdbm-txtgz") { 490 my $gdb_infodb_file_path = &dbutil::get_infodb_file_path("gdbm", $self->{'collection'}, $textdir); 491 if (-e $gdb_infodb_file_path) { 492 &util::rm($gdb_infodb_file_path); 493 } 494 } 489 495 print STDERR "</Stage>\n" if $self->{'gli'}; 490 496 }
Note:
See TracChangeset
for help on using the changeset viewer.