From a8d9b5d83b10ff215e40fffd1d88fd081a5f1728 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