+sub in_workarea ($) {
+ my ($sub) = @_;
+ changedir "$playground/work";
+ my $r = eval { $sub->(); };
+ changedir $maindir;
+}
+
+sub fresh_workarea () {
+ do {
+ local $playground;
+ fresh_playground "$playprefix/work";
+ };
+ in_workarea sub { playtree_setup };
+}
+