Fix PerlIO_get_cnt and friends

These functions worked with ints instead of SSize_t,

1 files changed, 1 insertions, 1 deletions

diff --git a/pp_sys.c b/pp_sys.c
index d87299fd17..a5d44ff9e8 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3288,7 +3288,7 @@ PP(pp_fttext)
 {
     dVAR;
     I32 i;
-    I32 len;
+    SSize_t len;
     I32 odd = 0;
     STDCHAR tbuf[512];
     STDCHAR *s;