$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))
 	{
