Permalink
Browse files

fix jnthn++'s report of infinite recursion in IO::Spec::Unix.rel2abs

  • Loading branch information...
1 parent 06eddc0 commit 738531ae8b81805d59ebb79ec46e1f35b40efcf6 @labster labster committed May 12, 2013
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/core/IO/Spec/Unix.pm
View
@@ -167,7 +167,7 @@ my class IO::Spec::Unix {
method rel2abs( $path, $base is copy = $*CWD) {
return self.canonpath($path) if self.is-absolute($path);
if !self.is-absolute( $base ) {
- $base = self.rel2abs( $base )
+ $base = self.rel2abs( $base, $*CWD ) unless $base eq $*CWD;
}
self.catdir( $base, $path );
}

0 comments on commit 738531a

Please sign in to comment.