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