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

diff --git a/perlio.c b/perlio.c
index 5de5e65..097bc49 100644 (file)
--- 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;
     }
 }