From d13a65216c1a6a5afb5e1a7f9ad5ee9debce75d7 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 23 Nov 2001 18:34:24 +0000
Subject: [PATCH] Use PROCSELFEXE_PATH.

p4raw-id: //depot/perl@13215
---
 perl.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl.c b/perl.c
index 4b3eb60..5d4e5bb 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);
     }
-- 
2.7.4