This allows the build information to not be suppressed when using
build-git-snapshot. This makes seeing where problems are substantially
easier.
Signed-off-by: Magnus Enger <magnus@enger.priv.no>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
return map { chomp; $_ } <$command_output>;
}
return map { chomp; $_ } <$command_output>;
}
+sub sys_command_output_screen {
+ my ($command) = @_;
+
+ print "$command\n" if $debug;
+ system($command);
+}
+
sub everything_is_committed {
my $filter;
for ($git_checks) {
sub everything_is_committed {
my $filter;
for ($git_checks) {
sys_command_output( qq{git archive --format=tar --prefix="koha-$newversion/" HEAD | gzip -9 > "../koha_$newversion.tar.gz"} );
my $pdebuildopts = $buildresult ? "--buildresult $buildresult" : "";
sys_command_output( qq{git archive --format=tar --prefix="koha-$newversion/" HEAD | gzip -9 > "../koha_$newversion.tar.gz"} );
my $pdebuildopts = $buildresult ? "--buildresult $buildresult" : "";
- sys_command_output( "pdebuild $pdebuildopts" );
+ sys_command_output_screen( "pdebuild $pdebuildopts" );
}
everything_is_committed() or die "cannot build: uncommited changes";
}
everything_is_committed() or die "cannot build: uncommited changes";