Chase a Rakudo behavior change

japhb · japhb · commit a44ac088b8f0 · 2013-05-26T15:45:11.000-07:00
diff --git a/bench b/bench
@@ -395,7 +395,7 @@ sub explode-components (@component-specs, :$chdir = True, :$default-to-dirs = Tr
         else {
             my $bare   = "$component.git";
             @checkouts = dir("$COMPONENTS_DIR/$component",
-                            test => none('.', '..', $bare)).map(*.Str).sort;
+                            test => none('.', '..', $bare)).map(*.basename.Str).sort;
         }
 
         if @exploded.first(*.<info><name> eq $component) -> $comp {

Original file line number	Diff line number	Diff line change
`@@ -395,7 +395,7 @@ sub explode-components (@component-specs, :$chdir = True, :$default-to-dirs = Tr`
`395`	`395`	`else {`
`396`	`396`	`my $bare = "$component.git";`
`397`	`397`	`@checkouts = dir("$COMPONENTS_DIR/$component",`
`398`		`- test => none('.', '..', $bare)).map(*.Str).sort;`
	`398`	`+ test => none('.', '..', $bare)).map(*.basename.Str).sort;`
`399`	`399`	`}`
`400`	`400`
`401`	`401`	`if @exploded.first(*.<info><name> eq $component) -> $comp {`