~ruther/guix-local: substitute: Sanitize the client-provided column number.

85fc958d9b8b36fb4b540882dfbcec45aab9eb82 — Ludovic Courtès 10 years ago 38f50f4

substitute: Sanitize the client-provided column number.

* guix/scripts/substitute.scm (client-terminal-columns): Sanitize the
client's column number.

patch browse .tar.gz

1 files changed, 3 insertions(+), 1 deletions(-)

M guix/scripts/substitute.scm

M guix/scripts/substitute.scm => guix/scripts/substitute.scm +3 -1

@@ 981,7 981,9 @@ found."
 default value."
   (or (and=> (or (find-daemon-option "untrusted-terminal-columns")
                  (find-daemon-option "terminal-columns"))
-             string->number)
+             (lambda (str)
+               (let ((number (string->number str)))
+                 (and number (max 20 (- number 1))))))
       80))
 
 (define (guix-substitute . args)