From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Fri, 7 Jun 2002 10:11:51 +0000 (+0000)
Subject: Don't discard read data on flush if seek fails.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ba5c3fe9c7fca842d972e373ee61c7a07bd44bb4;p=p5sagit%2Fp5-mst-13.2.git

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

p4raw-id: //depot/perlio@17053
---

diff --git a/perlio.c b/perlio.c
index 96aa0c9..e1cbbdc 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;