swap order of bitwise and to avoid confusion in perl < 5.10

[monkeysphere.git] / src / share / checkperms

diff --git a/src/share/checkperms b/src/share/checkperms
index c93113ec66708f81ab82fc8755b2ddc942b8b1c2..7a66b435e26e7f76abdb8349079ed1d1567b92f8 100755 (executable)
--- a/src/share/checkperms
+++ b/src/share/checkperms
@@ -69,15 +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_IWGRP & $stat->mode) {
-    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);
   }