Jarkko Hietaniemi <[EMAIL PROTECTED]> writes:
>I'm grasping at straws, and I really don't know much about
>PerlIO... but try this:
>
>==== //depot/perl/perlio.c#179 - /u/vieraat/vieraat/jhi/pp4/perl/perlio.c ====
>Index: perl/perlio.c
>--- perl/perlio.c.~1~ Thu Jun 13 20:05:05 2002
>+++ perl/perlio.c Thu Jun 13 20:05:05 2002
>@@ -2734,7 +2734,7 @@
> PerlIOStdio_flush(pTHX_ PerlIO *f)
> {
> FILE *stdio = PerlIOSelf(f, PerlIOStdio)->stdio;
>- if (PerlIOBase(f)->flags & PERLIO_F_CANWRITE) {
>+ if (stdio && PerlIOBase(f)->flags & PERLIO_F_CANWRITE) {
> return PerlSIO_fflush(stdio);
> }
> else {
>End of Patch.
>
>
>NI-S will probably find this patch very wrong :-)
Should be harmless. A :stdio layer without a FILE * "should never happen".
Your patch prevents it doing fflush(NULL) if it does.
--
Nick Ing-Simmons
http://www.ni-s.u-net.com/
