lassik
/
snow
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Require at least one null byte to pad tar string

This commit is contained in:
Lassi Kortela 2019-06-23 12:23:03 +03:00
parent 0ac8f79e50
commit 8aa80e16c0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lassik/trivial-tar-writer.scm
View File

@ -7,7 +7,7 @@
(define (tar-poke-string! header at nbyte string)
(let* ((bytes (string->utf8 string))
(nnull (- nbyte (bytevector-length bytes))))
(when (< nnull 0) (error "tar: string too long"))
(when (< nnull 1) (error "tar: string too long"))
(bytevector-copy! header at bytes)
(bytevector-copy! header (+ at (bytevector-length bytes)) nulls 0 nnull)))