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-12 14:18:55 +0100 |
commit | 8812f473e3d9d4e7ffe4dff4f0e6299b3427b325 (patch) | |
tree | 5711779cf4f2f3892a83c4e0572f0d2c90058d58 | |
parent | 477afbd81fe34f92ded303a4bca6d23e4d9a2b1d (diff) | |
download | gnutls-8812f473e3d9d4e7ffe4dff4f0e6299b3427b325.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'.
-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))) |