summaryrefslogtreecommitdiffstats
path: root/stdlib/path-test.tl
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/path-test.tl')
-rw-r--r--stdlib/path-test.tl4
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)))