01a0059a6c
Enhancements were made to code features such as "use", which now explicitly enables feature bundles, a more consistent "eval" operator, and a revamped "substr" function. The "__SUB__" sequence now returns a reference to the current subroutine, allowing for recursive subroutines to be written more simply. Support for Unicode 6.1 was improved. Many other minor improvements and bugfixes, along with several deprecations, were made
18 lines
651 B
Text
18 lines
651 B
Text
$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;
|
|
}
|