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

rakudo · May 12, 2013 · 738531a · 738531a
1 parent 06eddc0
commit 738531a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/IO/Spec/Unix.pm b/src/core/IO/Spec/Unix.pm
@@ -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 );
     }