[pkgsrc/trunk]: pkgsrc/lang/perl5 Patch (from latest PathTools) to fix build ...

[schmonz <schmonz%pkgsrc.org@localhost>]

details:   https://anonhg.NetBSD.org/pkgsrc/rev/45cc40f6786c
branches:  trunk
changeset: 562280:45cc40f6786c
user:      schmonz <schmonz%pkgsrc.org@localhost>
date:      Fri Jul 24 04:58:56 2009 +0000

description:
Patch (from latest PathTools) to fix build failure on systems where
$HOME's parent directory isn't readable by an unprivileged user.
Tested on Linux with unprivileged pkgsrc (DreamHost, where the
problem was encountered) and on Mac OS X with a more typical setup.

diffstat:

 lang/perl5/distinfo         |   3 ++-
 lang/perl5/patches/patch-ad |  15 +++++++++++++++
 2 files changed, 17 insertions(+), 1 deletions(-)

diffs (36 lines):

diff -r f5ae7b25610a -r 45cc40f6786c lang/perl5/distinfo
--- a/lang/perl5/distinfo       Fri Jul 24 01:24:38 2009 +0000
+++ b/lang/perl5/distinfo       Fri Jul 24 04:58:56 2009 +0000
@@ -1,4 +1,4 @@
-$NetBSD: distinfo,v 1.59 2009/05/02 19:23:44 sno Exp $
+$NetBSD: distinfo,v 1.60 2009/07/24 04:58:56 schmonz Exp $
 
 SHA1 (perl-5.10.0.tar.gz) = adf73606dd5248af7ccdd735bcaa0e628ea75b3c
 RMD160 (perl-5.10.0.tar.gz) = c6614fc99a162790a703f91085b24a60af903ba2
@@ -6,6 +6,7 @@
 SHA1 (patch-aa) = 5bd44a8076cf27e2deac52240af7f3898865859c
 SHA1 (patch-ab) = e32427327192f023477b16f29bc55fdf4f057410
 SHA1 (patch-ac) = e6dd7287c1d85a59953610406c5fc1f52c712fb7
+SHA1 (patch-ad) = 72ea84e233fd5e82822078e207d597870a53e9fd
 SHA1 (patch-ah) = 1d2f4049dcc8dafcd0eafad36a74531dc7f305c9
 SHA1 (patch-ai) = 5abdbbddcba79088996056ab88a34db5fcd16b01
 SHA1 (patch-aq) = 3ece22678e3e6dcd3cf641e6389ff203cbe351b9
diff -r f5ae7b25610a -r 45cc40f6786c lang/perl5/patches/patch-ad
--- /dev/null   Thu Jan 01 00:00:00 1970 +0000
+++ b/lang/perl5/patches/patch-ad       Fri Jul 24 04:58:56 2009 +0000
@@ -0,0 +1,15 @@
+$NetBSD: patch-ad,v 1.13 2009/07/24 04:58:57 schmonz Exp $
+
+--- lib/Cwd.pm.orig    2007-12-18 05:47:07.000000000 -0500
++++ lib/Cwd.pm
+@@ -540,8 +540,8 @@ sub _perl_abs_path
+       local *PARENT;
+       unless (opendir(PARENT, $dotdots))
+       {
+-          _carp("opendir($dotdots): $!");
+-          return '';
++          # probably a permissions issue.  Try the native command.
++          return File::Spec->rel2abs( $start, _backtick_pwd() );
+       }
+       unless (@cst = stat($dotdots))
+       {