From bd47baf274ecea5636da37b74e4368e6f271fed5 Mon Sep 17 00:00:00 2001 From: Niels Thykier Date: Sat, 22 Mar 2014 15:54:41 +0100 Subject: [PATCH] pp_sys.c: Optimize out a call to PerlIO_get_cnt If PerlIO_getc returns EOF, PerlIO_get_cnt is not going to return a positive value all of a sudden. Signed-off-by: Niels Thykier --- pp_sys.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/pp_sys.c b/pp_sys.c index 0541a72..671a9c0 100644 --- a/pp_sys.c +++ b/pp_sys.c @@ -3322,9 +3322,10 @@ PP(pp_fttext) i = PerlIO_getc(IoIFP(io)); if (i != EOF) (void)PerlIO_ungetc(IoIFP(io),i); + else + /* null file is anything */ + FT_RETURNYES; } - if (PerlIO_get_cnt(IoIFP(io)) <= 0) /* null file is anything */ - FT_RETURNYES; len = PerlIO_get_bufsiz(IoIFP(io)); s = (STDCHAR *) PerlIO_get_base(IoIFP(io)); /* sfio can have large buffers - limit to 512 */ -- 1.8.3.1