Unicode data updated to be the latest beta of the Unicode 3.0.

[p5sagit/p5-mst-13.2.git] / pp_sys.c

diff --git a/pp_sys.c b/pp_sys.c
index 0527fef..e081d67 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -2946,15 +2946,15 @@ PP(pp_fttext)
                    RETPUSHNO;
                else
                    RETPUSHYES;
-           if (PerlIO_get_cnt(aTHX_ IoIFP(io)) <= 0) {
+           if (PerlIO_get_cnt(IoIFP(io)) <= 0) {
                i = PerlIO_getc(IoIFP(io));
                if (i != EOF)
                    (void)PerlIO_ungetc(IoIFP(io),i);
            }
-           if (PerlIO_get_cnt(aTHX_ IoIFP(io)) <= 0)   /* null file is anything */
+           if (PerlIO_get_cnt(IoIFP(io)) <= 0) /* null file is anything */
                RETPUSHYES;
-           len = PerlIO_get_bufsiz(aTHX_ IoIFP(io));
-           s = (STDCHAR *) PerlIO_get_base(aTHX_ IoIFP(io));
+           len = PerlIO_get_bufsiz(IoIFP(io));
+           s = (STDCHAR *) PerlIO_get_base(IoIFP(io));
            /* sfio can have large buffers - limit to 512 */
            if (len > 512)
                len = 512;