Changes 5.20.0:

Experimental Subroutine signatures
subs now take a prototype attribute
More consistent prototype parsing
rand now uses a consistent random number generator
New slice syntax
Experimental Postfix Dereferencing
Unicode 6.3 now supported
New \p{Unicode} regular expression pattern property
Better 64-bit support
use locale now works on UTF-8 locales
use locale now compiles on systems without locale ability
More locale initialization fallback options
-DL runtime option now added for tracing locale setting
-F now implies -a and -a implies -n
$a and $b warnings exemption

1 files changed, 14 insertions, 14 deletions

diff --git a/lang/perl5/patches/patch-ah b/lang/perl5/patches/patch-ah
index 01d9977d07c..1466e20ee27 100644
--- a/lang/perl5/patches/patch-ah
+++ b/lang/perl5/patches/patch-ah
@@ -1,18 +1,18 @@
-$NetBSD: patch-ah,v 1.14 2012/10/03 19:59:47 adam Exp $
+$NetBSD: patch-ah,v 1.15 2014/05/29 07:57:07 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
+--- caretx.c.orig	2014-05-29 07:34:48.000000000 +0000
++++ caretx.c
+@@ -117,8 +117,10 @@ Perl_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;
- 	}
++           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;
+         }