Integrate perlio:

[ 17053]
Don't discard read data on flush if seek fails.
p4raw-link: @17053 on //depot/perlio: ba5c3fe9c7fca842d972e373ee61c7a07bd44bb4

p4raw-id: //depot/perl@17056

1 files changed, 3 insertions, 0 deletions

diff --git a/perlio.c b/perlio.c
index 96aa0c9270..e1cbbdc0d1 100644
--- a/perlio.c
+++ b/perlio.c
@@ -3123,6 +3123,9 @@ PerlIOBuf_flush(pTHX_ PerlIO *f)
 		/* Reload n as some layers may pop themselves on seek */
 		b->posn = PerlIO_tell(n = PerlIONext(f));
 	    }
+	    else {
+		return code;
+	    }
 	}
     }
     b->ptr = b->end = b->buf;