Add resoving of $PROGRAM_NAME from /dev/fd/<number>

There are situations when $PROGRAM_NAME is something /dev/fd/<number>
1) example like sudo /usr/local/bin/<tool> with checksum verification
(GH#23351)
2) example with pipe: perl <( echo '#!perl -DA'; echo 'print "$0\n"');

Author: michal-josef-spacek

perl.c

@@ -4226,6 +4226,18 @@ S_open_script(pTHX_ const char *scriptname, bool dosearch, bool *suidscript)
                 scriptname = savepv(s + 1);
                 Safefree(PL_origfilename);
                 PL_origfilename = (char *)scriptname;
+            } 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);
+                if (len != -1) {
+                    Stat_t statbuf;
+                    target_path[len] = '\0';
+                    if (PerlLIO_stat(target_path, &statbuf) == 0 && S_ISREG(statbuf.st_mode)) {
+                        scriptname = PL_origfilename = find_script(target_path, dosearch, NULL, 1);
+                    }
+                }
             }
         }
     }