This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
avoid infinite recursion in _perl_abs_path()
[perl5.git] / dist / PathTools / Cwd.pm
index d6c65e9..c648a57 100644 (file)
@@ -421,9 +421,7 @@ sub _perl_abs_path
        local *PARENT;
        unless (opendir(PARENT, $dotdots))
        {
-           # probably a permissions issue.  Try the native command.
-           require File::Spec;
-           return File::Spec->rel2abs( $start, _backtick_pwd() );
+           return undef;
        }
        unless (@cst = stat($dotdots))
        {