From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 23 Nov 2001 18:34:24 +0000 (+0000)
Subject: Use PROCSELFEXE_PATH.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d13a65216c1a6a5afb5e1a7f9ad5ee9debce75d7;p=p5sagit%2Fp5-mst-13.2.git

Use PROCSELFEXE_PATH.

p4raw-id: //depot/perl@13215
---

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);
     }