For info only, open/read broken on 3/12 pow build

[Pete Lomax]

Someone might want to check this works on the latest build:

.sub _main
        set S0, "t.imc"
        open P0, S0, "<"
AA100:
        read S1, P0, 1
        length I0, S1
        le I0, 0, EOF
        print S1
        goto AA100
EOF:
        end
.end

I just noticed it doesn't work on Jonathon Worthington's 3/12 build is
all. I have three other builds it works fine on, so I'm happy ;-)

Regards,
Pete
PS can no-one shed any light on my build error?:
Can't use an undefined value as an ARRAY reference at
lib/Parrot/OpsFile.pm line 432.