projects
/
monkeysphere.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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);
}
$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);
}
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);
}
return sprintf("improper other writability on '%s'", $path);
}