$NetBSD: patch-ah,v 1.14 2012/10/03 19:59:47 adam Exp $

NetBSD's implementation sometimes returns "/"; reject that too.

--- perl.c.orig	2012-08-03 17:35:26.000000000 +0000
+++ perl.c
@@ -1451,8 +1451,10 @@ S_set_caret_X(pTHX) {
 	   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
+
+	   NetBSD's implementation sometimes returns "/"; reject that too.
 	*/
-	if (len > 0 && memchr(buf, '/', len)) {
+	if (len > 1 && memchr(buf, '/', len)) {
 	    sv_setpvn(caret_x, buf, len);
 	    return;
 	}