don't expect a list of data and a tail in case of an error

diff --git a/lib/System/Introspector/Sudoers.pm b/lib/System/Introspector/Sudoers.pm
index 89683d7..1351029 100644 (file)
--- a/lib/System/Introspector/Sudoers.pm
+++ b/lib/System/Introspector/Sudoers.pm
@@ -42,6 +42,8 @@ sub _gather_files {
         }
         return \@result;
     };
+    return $file => $result
+        if ref $result eq 'HASH';
     return $file => @$result;
 }