[perl #22854] Incongruity in Parrot IO and/or Parrot I/O crashes on STDIN read

[Clinton A. Pierce]

# New Ticket Created by  "Clinton A. Pierce" 
# Please include the string:  [perl #22854]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=22854 >


This is either an oversight in the current implementation *or* its a bug.  Or both.  
Bug described is on Win32.

To read a line of input:

        readline Sx, Ix
                Switches to line buffered mode and reads from fd Ix.

This works great:

        readline $S0, 0
        print $S0

But is the old, deprecated way of doing things.  As a matter of fact, it's nigh 
impossible now to open an FD to a file and do anything useful with it as enough bits 
of the "old way" of doing things are dismantled now...


So, I'm trying to use the new ParrotIO stuff, and according to it I should get a 
ParrotIO object for STDIN:

        fdopen $P1, 0, "r"

And then use the read Sx, Px, Ix function (which on a line-buffered descriptor line 
STDIN, should stop at EOL):

        read $S0, $P1, 255

This crashes:

        .sub _main
                fdopen $P1, 0, "r"      # STDIN
                read $S0, $P1, 255
                print $S0
                end
        .end
        
Suggestions welcome!