diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2019-11-04 21:25:13 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2019-11-04 21:25:13 -0800 |
| commit | a8d9b5d83b10ff215e40fffd1d88fd081a5f1728 (patch) | |
| tree | 75bc9d51562a054305d2a0289ab838dc1292cd77 /share | |
| parent | 4a70ba5b24e9b6ce14c5ed3875df367f6a0ee4b7 (diff) | |
| download | txr-a8d9b5d83b10ff215e40fffd1d88fd081a5f1728.tar.gz txr-a8d9b5d83b10ff215e40fffd1d88fd081a5f1728.tar.bz2 txr-a8d9b5d83b10ff215e40fffd1d88fd081a5f1728.zip | |
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.
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/path-test.tl | 2 |
1 files changed, 1 insertions, 1 deletions
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)))))))))) |