From: Daniel Kahn Gillmor Date: Sat, 1 Aug 2009 20:36:19 +0000 (-0400) Subject: swap order of bitwise and to avoid confusion in perl < 5.10 X-Git-Tag: monkeysphere_0.26~3 X-Git-Url: https://codewiz.org/gitweb?a=commitdiff_plain;h=cb9929035b9801c5349385165cb7fdbdeb6ba735;p=monkeysphere.git swap order of bitwise and to avoid confusion in perl < 5.10 --- diff --git a/src/share/checkperms b/src/share/checkperms index 8e6d7ad..7a66b43 100755 --- a/src/share/checkperms +++ b/src/share/checkperms @@ -69,11 +69,11 @@ sub permissions_ok { $path, $stat->uid, $user->name, $user->uid); } - if (S_IWGRP & $stat->mode) { + if ($stat->mode & S_IWGRP) { return sprintf("improper group writability on '%s'", $path); } - if (S_IWOTH & $stat->mode) { + if ($stat->mode & S_IWOTH) { return sprintf("improper other writability on '%s'", $path); }