my $nmax = (@$out > @$result) ? @$out : @$result;
for (my $n=0; $n < $nmax; $n++) {
if (!defined($out->[$n]) || !defined($result->[$n]) ||
- $out->[$n] ne $result->[$n]) {
+ ($result->[$n] !~ m/\Q$out->[$n]\E/)) {
$good = 0;
}
}
>
$ setfacl --test -x u: g
- > setfacl: g: Malformed access ACL `user:root:---,user:daemon:rw-,group::r-x,mask::rwx,other::---': Missing or wrong entry at entry 1
+ > g: Malformed access ACL `user:root:---,user:daemon:rw-,group::r-x,mask::rwx,other::---': Missing or wrong entry at entry 1
$ setfacl --test -x u:x
> setfacl: Option -x: Invalid argument near character 3
$ setfacl -m d:u:root:rwx g
- > setfacl: g: Only directories can have default ACLs
+ > g: Only directories can have default ACLs
$ setfacl -x m g
- > setfacl: g: Malformed access ACL `user::rwx,user:root:---,user:daemon:rw-,group::r-x,other::---': Missing or wrong entry at entry 5
+ > g: Malformed access ACL `user::rwx,user:root:---,user:daemon:rw-,group::r-x,other::---': Missing or wrong entry at entry 5
setfacl --test -m d:u:daemon:rwx setfacl
setfacl --test -n -m d:u:daemon:rwx setfacl