Re: [PATCH] Test offset when reading from a PerlIO::Scalar

Message-ID: <Pine.LNX.4.21.0105091230110.1516-100000@marmot.rim.canoe.ca>

p4raw-id: //depot/perl@10054

1 files changed, 3 insertions, 1 deletions

diff --git a/perlio.c b/perlio.c
index 7580f2a013..ba932f3d69 100644
--- a/perlio.c
+++ b/perlio.c
@@ -1646,7 +1646,9 @@ PerlIOBase_read(PerlIO *f, void *vbuf, Size_t count)
    while (count > 0)
     {
      SSize_t avail = PerlIO_get_cnt(f);
-     SSize_t take  = (count < avail) ? count : avail;
+     SSize_t take = 0;
+     if (avail > 0)
+       take = (count < avail) ? count : avail;
      if (take > 0)
       {
        STDCHAR *ptr = PerlIO_get_ptr(f);