{ # This limit is renamed after ProcessMemoryLimit for consistency with imap entry foreach my $prop (qw/MemLimit/){ my $pop_value = $DB->get_prop_and_delete('pop3', $prop); next unless ($pop_value); my $curpop_value = $DB->get_prop('pop3', 'ProcessMemoryLimit'); next if ($curpop_value); $DB->set_prop('pop3', 'ProcessMemoryLimit', $pop_value); } # Those limits are now defined on the pop entry foreach my $prop (qw/MemLimit/){ my $pops_value = $DB->get_prop_and_delete('pop3s', $prop); next unless ($pops_value); my $pop_value = $DB->get_prop('pop3', 'ProcessMemoryLimit'); next if ($pop_value); $DB->set_prop('pop3', 'ProcessMemoryLimit' , $imaps_value); } }