X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl.c;h=fddaf5308f9953b2da643ae65ada966d04866a76;hb=2659725b692c235823f5ea11c58cf1b2adff0f86;hp=4138e1b8d1c79b2fbce5ea2992fc2bd2db83ff12;hpb=d103ec31e7c314096b02a22c4f9c43a9788a0d37;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perl.c b/perl.c
index 4138e1b..fddaf53 100644
--- a/perl.c
+++ b/perl.c
@@ -3443,11 +3443,11 @@ S_procself_val(pTHX_ SV *sv, char *arg0)
     int len = readlink(PROCSELFEXE_PATH, buf, sizeof(buf) - 1);
     /* FreeBSD's implementation is acknowledged to be imperfect, sometimes
        returning the text "unknown" from the readlink rather than the path
-       to the exacutable (or returing an error from the readlink).  Any valid
+       to the executable (or returning an error from the readlink).  Any valid
        path has a '/' in it somewhere, so use that to validate the result.
        See http://www.freebsd.org/cgi/query-pr.cgi?pr=35703
     */
-    if (len > 0 && memchr (buf, '/', len)) {
+    if (len > 0 && memchr(buf, '/', len)) {
 	sv_setpvn(sv,buf,len);
     }
     else {