PATCH [perl #112244]

:crlf currently doesn't fall back on :pending the way :perlio
does when the unread data doesn't fit into its own buffer. Instead it
just rejects them. This patch resolves that.  Tests are coming in a
future commit

The committer added a cast to get it to compile on Win32, and silence a
gcc warning on Linux

1 files changed, 2 insertions, 0 deletions

diff --git a/perlio.c b/perlio.c
index 5de5e65cb3..097bc49664 100644
--- a/perlio.c
+++ b/perlio.c
@@ -4571,6 +4571,8 @@ PerlIOCrlf_unread(pTHX_ PerlIO *f, const void *vbuf, Size_t count)
 		}
 	    }
 	}
+        if (count > 0)
+            unread += PerlIOBase_unread(aTHX_ f, (const STDCHAR *) vbuf + unread, count);
 	return unread;
     }
 }