Re: Testing for group or world writable files

[Anonymous Monk]

I see, another way to the answer is via Basic debugging checklist

$ perl -MO=Deparse,-p

ok( ! $mode & 022, "File is not group or world writable" );
^Z
ok(((!$mode) & 18), 'File is not group or world writable');
- syntax OK