blob: 01d9977d07cf92f2358f6dc99af4dca1ba27c137 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
$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;
}
|
