From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Wed, 22 May 2002 21:13:10 +0000 (+0000)
Subject: #ifdef VMS code was not ported right from sv.c - s/fp/stdio/
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bad9695d2c27e100ff7ed9ad887696aa6f3d6b62;p=p5sagit%2Fp5-mst-13.2.git

#ifdef VMS code was not ported right from sv.c - s/fp/stdio/

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

diff --git a/perlio.c b/perlio.c
index 8cfd02f..23864b5 100644
--- a/perlio.c
+++ b/perlio.c
@@ -2847,8 +2847,8 @@ PerlIOStdio_fill(pTHX_ PerlIO *f)
      * buffer, so we stuff it in the buffer ourselves.
      * Should never get called as should hit code above
      */
-    *(--((*fp)->_ptr)) = (unsigned char) c;
-    (*fp)->_cnt++;
+    *(--((*stdio)->_ptr)) = (unsigned char) c;
+    (*stdio)->_cnt++;
 #else
     /* If buffer snoop scheme above fails fall back to
        using ungetc (but why did "fill" get called?).