Really update entry when renewed.

diff --git a/bcp5-registry.pl b/bcp5-registry.pl
index 2fda10b8590ae97988ab0f6fc4a78dca69003755..3e9b2f6f05b08bb3f6c4cf7ec94b8f50e708835f 100755 (executable)
--- a/bcp5-registry.pl
+++ b/bcp5-registry.pl
@@ -279,10 +279,10 @@ if ($invokestyle eq 'maintain') {
        get_entry();
        check_password();
        $ent->{'changed'}= $now;
-       set_entry();
 
        $justupdated= 1;
        show_entry();
+       write_database();
        finish();
 
     } else {