diff options
Diffstat (limited to 'stdlib/path-test.tl')
-rw-r--r-- | stdlib/path-test.tl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/path-test.tl b/stdlib/path-test.tl index 98ba76f3..3288ef79 100644 --- a/stdlib/path-test.tl +++ b/stdlib/path-test.tl @@ -121,7 +121,7 @@ (defun path-private-to-me-p (path) (sys:path-test (s stat path) (let ((m s.mode) - (uid (getuid))) + (uid (geteuid))) (mlet ((g (getgrgid s.gid)) (name (let ((pw (getpwuid uid))) (if pw pw.name))) @@ -138,7 +138,7 @@ (defun path-strictly-private-to-me-p (path) (sys:path-test (s stat path) (let ((m s.mode) - (uid (getuid))) + (uid (geteuid))) (mlet ((g (getgrgid s.gid)) (name (let ((pw (getpwuid uid))) (if pw pw.name))) |