# New Ticket Created by Matt Diephouse
# Please include the string: [perl #33963]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/rt3/Ticket/Display.html?id=33963 >
harmony:~/Projects/parrot ezekiel$ cat test.pir
.sub main @MAIN
$P0 = open "test.pir", "<"
$S0 = readline $P0
print $S0
$S1 = read $P0, 3
print $S1
print "\n"
.end
harmony:~/Projects/parrot ezekiel$ parrot test.pir
.sub main @MAIN
readline: buffer too short
harmony:~/Projects/parrot ezekiel$
The docs say that read is a quick hack (see #33915), so I'm not sure
this is a surprise.
--
matt diephouse
http://matt.diephouse.com
