-ok(IPC::Run::run([$purge, '--all'], \$pre_scrub, \$out, \$err),
- 'scrub purge OK');
-like($out, qr/^\t[a-f0-9]{40,}/m, 'removed commit noted');
+$opt->{0} = \$pre_scrub;
+ok(run_script([$purge, '--all'], undef, $opt), 'scrub purge OK');
+like($out, qr/\b[a-f0-9]{40,}/m, 'removed commit noted');