From ac92ef9afb22b323564262bccd511cba2ef2651a Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 4 Nov 2019 21:25:13 -0800 Subject: path-tests: bug in path-strictly-private-to-me-p. * share/txr/stdlib/path-test.tl (path-strictly-private-to-me): Fix mistake in test whether the file is group readable/writable. The wrong flag is used for group readability test, which means that, at that point in the logic, if the file is merely not group writable, we jump to the conclusion that the file is strictly private, when in fact it may be group readable. Reported by user vapnik spaknik. --- share/txr/stdlib/path-test.tl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/share/txr/stdlib/path-test.tl b/share/txr/stdlib/path-test.tl index 635510a9..ee211ff2 100644 --- a/share/txr/stdlib/path-test.tl +++ b/share/txr/stdlib/path-test.tl @@ -144,7 +144,7 @@ (and (or (zerop s.uid) (eql euid s.uid)) (zerop (logand m (logior s-iroth s-iwoth))) - (or (zerop (logand m (logior s-iroth s-iwgrp))) + (or (zerop (logand m (logior s-irgrp s-iwgrp))) (null g.mem) (and (all g.mem (orf (op equal name) (op equal suname)))))))))) -- cgit v1.2.3