Change custom icons to an array

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

diff --git a/lib/File/KDBX/Util.pm b/lib/File/KDBX/Util.pm
index c4730fc6ed3964a250ad9a6c790645ec06d09502..8f7dcb860c648e8faabdc17b342bdb17623b4b1e 100644 (file)
--- a/lib/File/KDBX/Util.pm
+++ b/lib/File/KDBX/Util.pm
@@ -401,7 +401,7 @@ sub has {
     my ($package, $file, $line) = caller;
 
     my $d = $args{default};
-    my $default = is_arrayref($d) ? sub { [%$d] } : is_hashref($d) ? sub { +{%$d} } : $d;
+    my $default = is_arrayref($d) ? sub { [@$d] } : is_hashref($d) ? sub { +{%$d} } : $d;
     my $coerce  = $args{coerce};
     my $is      = $args{is} || 'rw';
 
@@ -420,8 +420,8 @@ sub has {
 
     my $set = '';
     if ($is eq 'rw') {
-        $set = is_coderef $coerce ? qq{$member = scalar \$coerce->(\$_[1]) if \$#_;}
-                : defined $coerce ? qq{$member = do { local $_; shift; $coerce } if \$#_;}
+        $set = is_coderef $coerce ? qq{$member = scalar \$coerce->(\@_[1..\$#_]) if \$#_;}
+                : defined $coerce ? qq{$member = do { local @_ = (\@_[1..\$#_]); $coerce } if \$#_;}
                                   : qq{$member = \$_[1] if \$#_;};
     }