mirror of
https://github.com/Stichting-MINIX-Research-Foundation/pkgsrc-ng.git
synced 2025-08-03 17:59:07 -04:00
19 lines
651 B
Plaintext
19 lines
651 B
Plaintext
$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;
|
|
}
|