🐛 Fix significant issues highlighted thanks to testing (#28)

Author: Daniel Ruthardt

libs/file/is_world_accessible

@@ -15,6 +15,9 @@
 # limitations under the License.
 #
 
+#include file/is_world_readable
+#include file/is_world_executable
+
 # file::is_world_accessible
 # Checks if a file or directory is world-readable and executable.
 #
@@ -40,7 +43,7 @@ function file::is_world_accessible() {
 
     if [[ ! -d "$path" ]]; then
       mode=$(stat -c "%a" "$path")
-      if file::is_world_readable "$path"; then
+      if ! file::is_world_readable "$path"; then
         return 1
       fi
 

libs/file/is_world_executable

@@ -33,5 +33,5 @@
 #   status (false).
 function file::is_world_executable() {
     local path=${1:?st argument (path) must be set}
-    [[ -n $(find "$path" -perm -005) ]]
+    [[ -n $(find "$path" -maxdepth 0 -perm -005) ]]
 }

libs/file/is_world_readable

@@ -33,5 +33,5 @@
 #   status (false).
 function file::is_world_readable() {
     local path=${1:?st argument (path) must be set}
-    [[ -n $(find "$path" -perm -004) ]]
+    [[ -n $(find "$path" -maxdepth 0 -perm -004) ]]
 }

libs/file/is_world_writable

@@ -33,5 +33,5 @@
 #   status (false).
 function file::is_world_writable() {
     local path=${1:?st argument (path) must be set}
-    [[ -n $(find "$path" -perm -002) ]]
+    [[ -n $(find "$path" -maxdepth 0 -perm -002) ]]
 }