From 78cb7c004bd5f66174e211c80a8332b6d519507b Mon Sep 17 00:00:00 2001 From: Abhijit Menon-Sen Date: Mon, 11 Mar 2002 03:48:14 +0000 Subject: Typo fixes. p4raw-id: //depot/perl@15162 --- perl.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perl.c b/perl.c index 4138e1b8d1..fddaf5308f 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 { -- cgit v1.2.1