- {
- my $pid = open(my $pipe, "|-");
- defined $pid or die "fork/pipe failed: $!\n";
- if ($pid == 0) {
- exec("ssoma-rm", $git_dir);
- }
- print $pipe $spam->as_string or die "print failed: $!\n";
- close $pipe or die "close pipe failed: $!\n";
- }