diff options
| author | sterni <sternenseemann@systemli.org> | 2022-01-19T12·59+0100 |
|---|---|---|
| committer | clbot <clbot@tvl.fyi> | 2023-05-14T14·42+0000 |
| commit | c1484c9f85f5f9735dabc69072eb4bd26f6ddd45 (patch) | |
| tree | 180f3754dea555d843b0b73340c53cf9cdb7e6cd /third_party/lisp/qbase64/coreutils-base64.patch | |
| parent | 9cf42c25c3907d2cc8030c5a8e1a82aa7449ca70 (diff) | |
feat(3p/lisp): add qbase64 r/6137
Change-Id: I448b9241726c3bb08f14188775a66e1da1225e02 Reviewed-on: https://cl.tvl.fyi/c/depot/+/5004 Tested-by: BuildkiteCI Autosubmit: sterni <sternenseemann@systemli.org> Reviewed-by: sterni <sternenseemann@systemli.org>
Diffstat (limited to 'third_party/lisp/qbase64/coreutils-base64.patch')
| -rw-r--r-- | third_party/lisp/qbase64/coreutils-base64.patch | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/third_party/lisp/qbase64/coreutils-base64.patch b/third_party/lisp/qbase64/coreutils-base64.patch new file mode 100644 index 000000000000..5a2f2a9f0864 --- /dev/null +++ b/third_party/lisp/qbase64/coreutils-base64.patch @@ -0,0 +1,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)) |