diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-12-11 19:06:18 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-12-11 19:06:42 +0100 |
| commit | df8017736631c64120c3dd048b8026b738da5316 (patch) | |
| tree | f3ede2b24d2464c5e97d1eeb01f549d1a56d25e3 /guile | |
| parent | 4ab5ad25891a68cd0ef30dcb923a2bea89df4982 (diff) | |
| download | gnutls-df8017736631c64120c3dd048b8026b738da5316.tar.gz | |
guile: Open binary file in binary mode, for the sake of MinGW.
Reported by Eli Zaretskii <eliz@gnu.org>.
* guile/tests/openpgp-keyring.scm: Use 'open-file' with "rb" instead of
'open-input-file'.
Diffstat (limited to 'guile')
| -rw-r--r-- | guile/tests/openpgp-keyring.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guile/tests/openpgp-keyring.scm b/guile/tests/openpgp-keyring.scm index b618bad9ec..957b952651 100644 --- a/guile/tests/openpgp-keyring.scm +++ b/guile/tests/openpgp-keyring.scm @@ -1,5 +1,5 @@ ;;; GnuTLS-extra --- Guile bindings for GnuTLS-EXTRA. -;;; Copyright (C) 2007-2012 Free Software Foundation, Inc. +;;; Copyright (C) 2007-2012, 2014 Free Software Foundation, Inc. ;;; ;;; GnuTLS-extra is free software; you can redistribute it and/or modify ;;; it under the terms of the GNU General Public License as published by @@ -49,7 +49,7 @@ ;; Return true if FILE contains a valid keyring encoded in FORMAT. (let ((raw-keyring (make-u8vector (file-size file)))) - (uniform-vector-read! raw-keyring (open-input-file file)) + (uniform-vector-read! raw-keyring (open-file file "rb")) (let ((keyring (import-openpgp-keyring raw-keyring format)) (null-id (make-u8vector 8 0))) |