fixup! Add resolving of $PROGRAM_NAME from /dev/fd/<number>

Author: michal-josef-spacek

perl.c

@@ -4230,8 +4230,8 @@ S_open_script(pTHX_ const char *scriptname, bool dosearch, bool *suidscript)
             else {
                 char proc_fd_path[64];
                 snprintf(proc_fd_path, sizeof(proc_fd_path), "/proc/self/fd/%d", fdscript);
-                char target_path[PATH_MAX];
-                ssize_t len = readlink(proc_fd_path, target_path, sizeof(target_path) - 1);
+                char target_path[MAXPATHLEN];
+                SSize_t len = readlink(proc_fd_path, target_path, sizeof(target_path) - 1);
                 if (len != -1) {
                     Stat_t statbuf;
                     target_path[len] = '\0';