- ok(-r $fi_data, "fast-import data readable (or run test at top level)");
- local $ENV{GIT_DIR} = $dir;
- system("git fast-import --quiet <$fi_data");
+ open my $fh, '<', $fi_data or die
+ "fast-import data readable (or run test at top level: $!";
+ my $rdr = { 0 => $fh };
+ xsys([qw(git fast-import --quiet)], { GIT_DIR => $dir }, $rdr);