Save stream offset in safe to fix locked peeking

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

diff --git a/lib/File/KDBX/Safe.pm b/lib/File/KDBX/Safe.pm
index 8e307c25743f6753db2f9766cdd755047990c69e..e8b5fd94963b8ee3835da4e7fb6d2a9a4acdc280 100644 (file)
--- a/lib/File/KDBX/Safe.pm
+++ b/lib/File/KDBX/Safe.pm
@@ -151,7 +151,7 @@ sub add_protected {
     @strings or throw 'Must provide strings to lock';
 
     for my $string (@strings) {
-        my $item = {str => $string};
+        my $item = {str => $string, off => $self->{counter}};
         $item->{filter} = $filter if defined $filter;
         if (is_scalarref($string)) {
             next if !defined $$string;