version 1.2, 2003/11/14 20:41:48
|
version 1.3, 2003/12/04 13:40:29
|
Line 91 while (my $resDBname = shift()) {
|
Line 91 while (my $resDBname = shift()) {
|
untie %resevalDB; |
untie %resevalDB; |
# remove the keys we saved. |
# remove the keys we saved. |
next if (! scalar(@Keys)); # skip it if we did not get anything... |
next if (! scalar(@Keys)); # skip it if we did not get anything... |
if (! tie(%resevalDB,'GDBM_File',$resDBname,&GDBM_WRITER,0640)) { |
my $dbptr; |
|
if (! ($dbptr = tie(%resevalDB,'GDBM_File',$resDBname,&GDBM_WRITER,0640))){ |
die "Unable to re-tie to $resDBname. No deletes occured."; |
die "Unable to re-tie to $resDBname. No deletes occured."; |
} |
} |
foreach my $basekey (@Keys) { |
foreach my $basekey (@Keys) { |
delete($resevalDB{$basekey}); |
delete($resevalDB{$basekey}); |
} |
} |
untie %resevalDB; |
# Squish the file down |
|
$dbptr->reorganize(); |
|
$dbptr = undef; |
|
untie(%resevalDB); |
} |
} |
exit; |
exit; |
|
|