Use PROCSELFEXE_PATH.

p4raw-id: //depot/perl@13215

diff --git a/perl.c b/perl.c
index 4b3eb60..5d4e5bb 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -3427,7 +3427,7 @@ STATIC void
 S_procself_val(pTHX_ SV *sv, char *arg0)
 {
     char buf[MAXPATHLEN];
-    int len = readlink("/proc/self/exe", buf, sizeof(buf) - 1);
+    int len = readlink(PROCSELFEXE_PATH, buf, sizeof(buf) - 1);
     if (len > 0) {
        sv_setpvn(sv,buf,len);
     }