chmod: ugo perms sees effects from same clause.

This is Coreutils chmod behavior.

* sysif.c (chmod_wrap): Sample cmode into oldm at the start of
every assigment before punching the masked hole into cmode.

* tests/018/chmod.tl: Breaking test case added.

1 files changed, 1 insertions, 0 deletions

diff --git a/sysif.c b/sysif.c
index 444f8326..638f9642 100644
--- a/sysif.c
+++ b/sysif.c
@@ -673,6 +673,7 @@ static val chmod_wrap(val target, val mode)
           case chm_sub: cmode &= ~bits; break;
           case chm_set:
             if (cs == chm_perm) {
+              oldm = cmode;
               cmode &= ~mask;
               if (implicit_all || (who & CHM_O) != 0)
                 cmode &= ~S_ISVTX; /* GNU Coreutils 8.28 chmod behavior */