[perl #123802] Assertion failure with /$0{}/

[perl5.git] / caretx.c

diff --git a/caretx.c b/caretx.c
index dffa445..5d3318c 100644 (file)
--- a/caretx.c
+++ b/caretx.c
@@ -99,7 +99,7 @@ Perl_set_caret_X(pTHX) {
         }
 #  elif defined(HAS_PROCSELFEXE)
         char buf[MAXPATHLEN];
-        Ssize_t len = readlink(PROCSELFEXE_PATH, buf, sizeof(buf) - 1);
+        SSize_t len = readlink(PROCSELFEXE_PATH, buf, sizeof(buf) - 1);
         /* NOTE: if the length returned by readlink() is sizeof(buf) - 1,
          * it is impossible to know whether the result was truncated. */