suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

file/tar: limit pipe size between tar and gzip

Browse Source 
Otherwise, tar is likely to get ahead of gzip and use much
more memory.
This commit is contained in:
Matthew Flatt 2013-07-25 10:11:05 -06:00
parent 949ea16cbf
commit a5d724dda4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/collects/file/tar.rkt
View File

@ -155,7 +155,7 @@
(when (null? paths) (error 'tar-gzip "no paths specified")) (when (null? paths) (error 'tar-gzip "no paths specified"))
(with-output-to-file tgz-file (with-output-to-file tgz-file
(lambda () (lambda ()
(let-values ([(i o) (make-pipe)]) (let-values ([(i o) (make-pipe (* 1024 1024 32))])
(thread (lambda () (thread (lambda ()
(tar->output (pathlist-closure paths #:follow-links? #f) o (tar->output (pathlist-closure paths #:follow-links? #f) o
#:path-prefix prefix) #:path-prefix prefix)