gnu: glibc: Enable pt_chown on the Hurd.

Fixes https://issues.guix.gnu.org/59616.

* gnu/packages/base.scm (glibc)[#:configure-flags]: Enable pt_chown.
[#:phases]: Add phase to patch path to suid pt_chown.

Change-Id: Iaf6b851874cd94ffd6df269fc56c97910a5dee0d

1 files changed, 12 insertions, 0 deletions

diff --git a/gnu/packages/base.scm b/gnu/packages/base.scm
index 905af86a6b8..97086f227f9 100644
--- a/gnu/packages/base.scm
+++ b/gnu/packages/base.scm
@@ -1031,11 +1031,23 @@ the store.")
              ;; 'device_write_inband' among other things.  Ignore them.
              #$@(if (target-hurd?)
                     #~("--disable-werror")
+                    #~())
+             #$@(if (target-hurd?)
+                    #~("--enable-pt_chown") ; build pt_chown for openpty/grantpt
                     #~()))
 
      #:tests? #f ; XXX
      #:phases
      #~(modify-phases %standard-phases
+         #$@(if (target-hurd?)
+                #~((add-before 'configure 'pt-chown
+                     (lambda _
+                       (substitute* "login/Makefile"
+                         (("-o root") ""))
+                       ;; Adjust the file name to the 'pt_chown' setuid program.
+                       (substitute* "sysdeps/generic/pty-private.h"
+                         (("LIBEXECDIR") "\"/run/privileged/bin\"")))))
+                #~())
          (add-before 'configure 'pre-configure
            (lambda* (#:key inputs native-inputs #:allow-other-keys)
              (let* ((bin (string-append #$output "/bin"))