guix: shell: Don't whitelist / by typo in `shell-authorized-directories'.

Fixes <https://issues.guix.gnu.org/65832>.

* guix/scripts/shell.scm (authorized-shell-directory?): After warning,
continue LOOP to return valid query result for DIRECTORY.
This commit is contained in:
Janneke Nieuwenhuizen 2023-09-06 10:52:17 +02:00
parent 4dd33fc628
commit 1ef4974be9
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273

View file

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2021-2023 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -232,7 +233,8 @@ (define (authorized-shell-directory? directory)
(port-line port)
(port-column port))))
(warning loc (G_ "ignoring invalid file name: '~a'~%")
line))))))))))
line)
(loop))))))))))
(const #f)))
(define (options-with-caching opts)