Suggestions welcome!
First, always check the result of IO operations. If something fails, these return a PerlUndef, so:
.sub _main
fdopen $P1, 0, "r" # STDIN
defined $I0, $P1
unless $I0, err
read $S0, $P1, 255
print $S0
end
err:
print "fdopen failed\n"
end
.end
2. C<fdopen> was disabled totally due to a wrong #ifdef 3. its currently only defined for PIO_OS_UNIX 4. Thanks again for your really valuable bug reports.
leo
