X-Git-Url: https://git.dogcows.com/gitweb?a=blobdiff_plain;f=lib%2FFile%2FKDBX%2FSafe.pm;h=e8b5fd94963b8ee3835da4e7fb6d2a9a4acdc280;hb=ad2fb90df76a3599c61081f787f387b1a84a89ca;hp=8e307c25743f6753db2f9766cdd755047990c69e;hpb=cfe6ddf632ec8f9ce9569fbf4c7e759160ba3419;p=chaz%2Fp5-File-KDBX diff --git a/lib/File/KDBX/Safe.pm b/lib/File/KDBX/Safe.pm index 8e307c2..e8b5fd9 100644 --- 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;