X-Git-Url: https://git.dogcows.com/gitweb?a=blobdiff_plain;ds=sidebyside;f=lib%2FFile%2FKDBX%2FEntry.pm;fp=lib%2FFile%2FKDBX%2FEntry.pm;h=6a927c1b1a4608b99ae3dbe5a1af79aff8d00876;hb=a4c5d05556ecd450acce5e20fcab7af5f282af2f;hp=0119b67363431fe407dfd828c58934330ce26edd;hpb=a88318ecb7f38a65fa1d6e68de001f4385d34fa7;p=chaz%2Fp5-File-KDBX

diff --git a/lib/File/KDBX/Entry.pm b/lib/File/KDBX/Entry.pm
index 0119b67..6a927c1 100644
--- a/lib/File/KDBX/Entry.pm
+++ b/lib/File/KDBX/Entry.pm
@@ -253,14 +253,16 @@ sub string {
 
     return $self->{strings}{$key} = $args{value} if is_plain_hashref($args{value});
 
+    # Auto-vivify the standard strings.
+    if (!exists $self->{strings}{$key} && $STANDARD_STRINGS{$key}) {
+        $args{value} //= '';
+        $args{protect} //= true if $self->_protect($key);
+    }
+
     while (my ($field, $value) = each %args) {
         $self->{strings}{$key}{$field} = $value;
     }
 
-    # Auto-vivify the standard strings.
-    if ($STANDARD_STRINGS{$key}) {
-        return $self->{strings}{$key} //= {value => '', $self->_protect($key) ? (protect => true) : ()};
-    }
     return $self->{strings}{$key};
 }