+if ( $create_dump ) {
+ warn "## cleaning dump directory\n" if $debug;
+ find({
+ wanted => sub {
+ my $path = $File::Find::name;
+ return if -d $path;
+ unlink($path) || die "can't remove $path: $!";
+ warn "## removed $path\n" if $debug;
+ },
+ no_chdir => 1,
+ }, 'dump/' );
+}
+