mirror of
git://git.gnupg.org/gnupg.git
synced 2025-07-02 22:46:30 +02:00
common: Fix iobuf_peek corner case.
Previously, iobuf_peek on a file smaller than 'buflen' would hang. * common/iobuf.c (underflow): Generalize by adding a target parameter. (iobuf_peek): Use this to prevent looping here. * tests/openpgp/Makefile.am (TESTS): Add new test. * tests/openpgp/setup.scm (dearmor): Move function... * tests/openpgp/defs.scm (dearmor): ... here. * tests/openpgp/issue2419.scm: New file. * tests/openpgp/samplemsgs/issue2419.asc: Likewise. GnuPG-bug-id: 2419 Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
parent
046338b849
commit
b2572b0c38
6 changed files with 58 additions and 11 deletions
|
@ -55,14 +55,6 @@
|
|||
CLOSED_FD fd STDERR_FILENO)))
|
||||
'(500 9000 32000 80000))
|
||||
|
||||
(define (dearmor source-name sink-name)
|
||||
(pipe:do
|
||||
(pipe:open source-name (logior O_RDONLY O_BINARY))
|
||||
(pipe:spawn `(,@GPG --dearmor))
|
||||
(pipe:write-to sink-name
|
||||
(logior O_WRONLY O_CREAT O_BINARY)
|
||||
#o600)))
|
||||
|
||||
(for-each-p "Unpacking samples"
|
||||
(lambda (name)
|
||||
(dearmor (in-srcdir (string-append name "o.asc")) name))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue