Hi, > > PerlIO *fp; > if (!(fp = IoOFP(GvIOn(gv_fetchpv("STDOUT", GV_ADD, SVt_PVIO))))) { > # bad handle > # check perhaps if IoIFP returns something. If so, the handle is > # read-only. To get an fp for reading us IoIFP. > } > PerlIO_write(fp, ...) >
[[GR]] This works :-) > > Please don't think I am an expert on this. [[GR]] At least you have more practice with codeing XS then myself (since for the last few years I didn't done much XS stuff) > I think what I have said is correct > according to the code. Unfortunately this piece of perl is quite > undocumented. [[GR]] At least nowadays XS and perlapi are a little bit more documented then when I started Embperl 14 years ago, but there is still a lot of magic inside of Perl. Thanks for your help Gerald --------------------------------------------------------------------- To unsubscribe, e-mail: dev-unsubscr...@perl.apache.org For additional commands, e-mail: dev-h...@perl.apache.org