$NetBSD: patch-ah,v 1.13 2011/08/05 18:06:14 adam Exp $

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

--- perl.c.orig	2010-05-21 14:41:18.000000000 +0000
+++ perl.c	2010-05-21 14:44:01.000000000 +0000
@@ -1422,8 +1422,10 @@
        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(sv,buf,len);
     }
     else {