if (exists $spots->{VERSION} && $spots->{VERSION} == $DATA_VERSION) {
# now clean out anything that is current
while (my ($k, $cand) = each %$spots) {
if (exists $spots->{VERSION} && $spots->{VERSION} == $DATA_VERSION) {
# now clean out anything that is current
while (my ($k, $cand) = each %$spots) {