my ($command) = @_;
print "$command\n" if $debug;
system($command);
system($command) == 0 or die "Command returns an error ($?)";
}
sub everything_is_committed {
-