about summary refs log blame commit diff
path: root/third_party/lisp/qbase64/coreutils-base64.patch
blob: 5a2f2a9f0864c73946028e6930dc40dc8bea31ed (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
12
13












                                                                                                                                                                                                       
diff --git a/qbase64-test.lisp b/qbase64-test.lisp
index 310fdf3..b92abb5 100644
--- a/qbase64-test.lisp
+++ b/qbase64-test.lisp
@@ -14,7 +14,7 @@
       (with-open-temporary-file (tmp :direction :output :element-type '(unsigned-byte 8))
         (write-sequence bytes tmp)
         (force-output tmp)
-        (let* ((encoded (uiop:run-program `("base64" "-b" ,(format nil "~A" linebreak) "-i" ,(namestring tmp)) :output (if (zerop linebreak) '(:string :stripped t) :string)))
+        (let* ((encoded (uiop:run-program `("base64" "-w" ,(format nil "~A" linebreak) ,(namestring tmp)) :output (if (zerop linebreak) '(:string :stripped t) :string) :error-output *error-output*))
                (length (length encoded)))
           (cond ((and (> length 1)
                       (string= (subseq encoded (- length 2))