Fix /foo/../../ case

rakudo · Dec 22, 2014 · 885d6ab · 885d6ab
1 parent f182b5e
commit 885d6ab
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/core/IO.pm b/src/core/IO.pm
@@ -147,6 +147,12 @@ sub MAKE-CLEAN-PARTS(Str $abspath) {
         }
     }
 
+
+    # back part cleanup
+    @parts.pop
+      while $checks
+        && %CLEAN-PARTS-NUL.exists_key(@parts.at_pos($checks--).WHICH);
+
     # need (at least) / at the end
     my $elems := @parts.elems;
     @parts.push("") if $elems == 1 || @parts.at_pos($elems - 1) ne "";