Use PROCSELFEXE_PATH.

p4raw-id: //depot/perl@13215

1 files changed, 1 insertions, 1 deletions

diff --git a/perl.c b/perl.c
index 4b3eb608b7..5d4e5bbb25 100644
--- 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);
     }