[perl #61290] [BIG] can't peek on stdin

[via RT]

# New Ticket Created by  François PERRAD 
# Please include the string:  [perl #61290]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=61290 >


Since the merge of the branch ppd22io, the mode of the stdin stream has changed.
Currently, it isn't possible to peek on stdin.

$ cat peek.pir
    .sub 'main'
         $P0 = getstdin
         $S0 = peek $S0
    .end

$ ./parrot peek.pir < peek.pir
    Can't peek at unbuffered I/O

The issue was detected with I/O library of Lua (see languages/lua/t/io.t#17).

François.