tar: Extract fix.

* gash/ustar.scm (read-ustar-file): Use binary output port.
2018-11-04 07:16:16 +01:00 · 2018-11-04 07:16:16 +01:00 · 8bcc6d3c82
parent 63f2d4b5f8
commit 8bcc6d3c82
1 changed files with 1 additions and 1 deletions
--- a/gash/ustar.scm
+++ b/gash/ustar.scm
@ -483,7 +483,7 @@
        (case (ustar-header-type header)
          ((regular)
           (if (file-exists? file-name) (delete-file file-name))
-           (with-output-to-file file-name thunk))
+           (with-output-to-file file-name thunk #:binary #t))
          ((directory) (mkdir-p file-name))
          ((symlink) (symlink (ustar-header-link-name header) file-name )))
        (thunk))