our $playprefix = 'debrebase';
our $rd;
+our $workarea;
our @git = qw(git);
sub in_workarea ($) {
my ($sub) = @_;
- changedir "$playground/work";
+ changedir $workarea;
my $r = eval { $sub->(); };
changedir $maindir;
}
sub fresh_workarea () {
- do {
- local $playground;
- fresh_playground "$playprefix/work";
- };
+ $workarea = fresh_playground "$playprefix/work";
in_workarea sub { playtree_setup };
}
my $toplevel = cmdoutput @git, qw(rev-parse --show-toplevel);
chdir $toplevel or die "chdir $toplevel: $!";
-fresh_playground $playprefix;
-$rd = ensure_a_playground "playprefix/misc";
+$rd = fresh_playground "$playprefix/misc";
my $cmd = shift @ARGV;
my $cmdfn = $cmd;