From df8017736631c64120c3dd048b8026b738da5316 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 11 Dec 2014 19:06:18 +0100 Subject: guile: Open binary file in binary mode, for the sake of MinGW. Reported by Eli Zaretskii . * guile/tests/openpgp-keyring.scm: Use 'open-file' with "rb" instead of 'open-input-file'. --- guile/tests/openpgp-keyring.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'guile') 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))) -- cgit v1.2.1