Add maintenance methods

[chaz/p5-File-KDBX] / lib / File / KDBX / Object.pm

diff --git a/lib/File/KDBX/Object.pm b/lib/File/KDBX/Object.pm
index 1fd1415ec127ea0dde471de20feeef3902081977..3a56c37e82ce270ee26e4cf517326e5e25707f51 100644 (file)
--- a/lib/File/KDBX/Object.pm
+++ b/lib/File/KDBX/Object.pm
@@ -301,6 +301,7 @@ sub group {
         return $new_group if Hash::Util::FieldHash::id($old_group) == Hash::Util::FieldHash::id($new_group);
         # move to a new parent
         $self->remove(signal => 0) if $old_group;
+        $self->location_changed('now');
         $new_group->add_object($self);
     }