gnutls guile self checks fail: fport_fill_input

[Simon Josefsson]

Hi Ludovic.

The guile self-tests seem to fail:

jas at mocca:~/src/gnutls/guile/tests$ make check
make  check-TESTS
make[1]: Entering directory `/home/jas/src/gnutls/guile/tests'
ERROR: In procedure fport_fill_input:
ERROR: Is a directory
FAIL: anonymous-auth.scm
...

I couldn't find these error message inside gnutls, so they could be
guile bugs, but I suspect you know better than me how to debug this.

Strace shows something that may be related: it seems to open / but fails
because it is a directory.

/Simon

read(5, "le-use! guile-user-module (resol"..., 4096) = 2078
stat64("/usr/share/guile/site/ice-9/deprecated.scm", 0xbfce2034) = -1 ENOENT (No such file or directory)
stat64("/usr/share/guile/1.8/ice-9/deprecated.scm", {st_mode=S_IFREG|0644, st_size=6159, ...}) = 0
open("/usr/share/guile/1.8/ice-9/deprecated.scm", O_RDONLY|O_LARGEFILE) = 6
fcntl64(6, F_GETFL)                     = 0x8000 (flags O_RDONLY|O_LARGEFILE)
lseek(6, 0, SEEK_CUR)                   = 0
fstat64(6, {st_mode=S_IFREG|0644, st_size=6159, ...}) = 0
select(1024, [6], [], [], {0, 0})       = 1 (in [6], left {0, 0})
read(6, ";;;; Copyright (C) 2003, 2005, 2"..., 4096) = 4096
select(1024, [6], [], [], {0, 0})       = 1 (in [6], left {0, 0})
read(6, "\t\t\t\t  module-name)))))\n    (let "..., 4096) = 2063
select(1024, [6], [], [], {0, 0})       = 1 (in [6], left {0, 0})
read(6, "", 4096)                       = 0
close(6)                                = 0
select(1024, [5], [], [], {0, 0})       = 1 (in [5], left {0, 0})
read(5, "", 4096)                       = 0
close(5)                                = 0
open("/", O_RDONLY|O_LARGEFILE)         = 5
fcntl64(5, F_GETFL)                     = 0x8000 (flags O_RDONLY|O_LARGEFILE)
lseek(5, 0, SEEK_CUR)                   = 0
fstat64(5, {st_mode=S_IFDIR|0755, st_size=4096, ...}) = 0
select(1024, [5], [], [], {0, 0})       = 1 (in [5], left {0, 0})
read(5, 0x80688a0, 4096)                = -1 EISDIR (Is a directory)
write(2, "ERROR", 5ERROR)                    = 5
write(2, ": ", 2: )                       = 2
write(2, "In procedure ", 13In procedure )           = 13
write(2, "fport_fill_input", 16fport_fill_input)        = 16
write(2, ":\n", 2:
)                      = 2
write(2, "ERROR", 5ERROR)                    = 5
write(2, ": ", 2: )                       = 2
write(2, "Is a directory", 14Is a directory)          = 14
write(2, "\n", 1