#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 (file)
--- 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?).