Don't discard read data on flush if seek fails.

p4raw-id: //depot/perlio@17053

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;