Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Move 'clean' command multi back to where it was supposed to be
  • Loading branch information
Geoffrey Broadwell committed Nov 19, 2012
1 parent 273e045 commit e48cabb
Showing 1 changed file with 17 additions and 17 deletions.
34 changes: 17 additions & 17 deletions bench
Expand Up @@ -142,23 +142,6 @@ multi MAIN ('build', *@components) {
}
}

#= Clean up build trees in components/, keeping bare clones by default
multi MAIN ('clean', *@components) {
unless $COMPONENTS_DIR.IO.d {
say "No 'components' tree exists, so there is nothing to clean.";
exit;
}

for explode-components(@components) -> $comp {
my $name = $comp<info><name>;
say "==> $name";

for $comp<checkouts>.list -> $checkout {
rmtree "$COMPONENTS_DIR/$name/$checkout";
}
}
}

#= Run timing benchmarks on built components
multi MAIN ('time', *@components) {
needs-setup('benchmark Perls');
Expand All @@ -179,6 +162,23 @@ multi MAIN ('time', *@components) {
}
}

#= Clean up build trees in components/, keeping bare clones by default
multi MAIN ('clean', *@components) {
unless $COMPONENTS_DIR.IO.d {
say "No 'components' tree exists, so there is nothing to clean.";
exit;
}

for explode-components(@components) -> $comp {
my $name = $comp<info><name>;
say "==> $name";

for $comp<checkouts>.list -> $checkout {
rmtree "$COMPONENTS_DIR/$name/$checkout";
}
}
}

#= Remove *everything* not part of the core benchmark tree
multi MAIN ('realclean', Bool :$force) {
unless $force {
Expand Down

0 comments on commit e48cabb

Please sign in to comment.