From cb9929035b9801c5349385165cb7fdbdeb6ba735 Mon Sep 17 00:00:00 2001
From: Daniel Kahn Gillmor <dkg@fifthhorseman.net>
Date: Sat, 1 Aug 2009 16:36:19 -0400
Subject: [PATCH] swap order of bitwise and to avoid confusion in perl < 5.10

---
 src/share/checkperms | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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);
   }
 
-- 
2.25.1