+GetOptions(
+ 'basetgz|b=s' => \$basetgz,
+ 'buildresult|r=s' => \$buildresult,
+ 'distribution|D=s' => \$distribution,
+ 'git-checks|g=s' => \$git_checks,
+ 'version|v=s' => \$version,
+ 'autoversion!' => \$auto_version,
+ 'help|h' => \$need_help,
+ 'debug|d' => \$debug,
+);
+
+help_and_exit() if $need_help;
+
+
+sub sys_command_output {
+ my ($command) = @_;
+
+ print "$command\n" if $debug;
+ my $command_output;
+ open($command_output, "-|", "$command ")
+ or die qq{Cannot execute "$command": $!"};
+ return map { chomp; $_ } <$command_output>;