in reply to Testing for group or world writable files

Seems you need the parenthesis for precedence: 
ok( ! ($mode & 022), "File is not group or world writable" );

[download]
Works here.

Replies are listed 'Best First'.
Re^2: Testing for group or world writable files
by choroba (Cardinal) on Jul 07, 2015 at 08:41 UTC
    I've just seen a presentation on Coccinelle, this kind of error was quite common in the Linux kernel. See here.
    لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
[reply]

In Section Seekers of Perl Wisdom