Lines 58-63
sub sys_command_output {
Link Here
|
58 |
return map { chomp; $_ } <$command_output>; |
58 |
return map { chomp; $_ } <$command_output>; |
59 |
} |
59 |
} |
60 |
|
60 |
|
|
|
61 |
sub sys_command_output_screen { |
62 |
my ($command) = @_; |
63 |
|
64 |
print "$command\n" if $debug; |
65 |
system($command); |
66 |
} |
67 |
|
61 |
sub everything_is_committed { |
68 |
sub everything_is_committed { |
62 |
my $filter; |
69 |
my $filter; |
63 |
for ($git_checks) { |
70 |
for ($git_checks) { |
Lines 130-136
sub build_package {
Link Here
|
130 |
sys_command_output( qq{git archive --format=tar --prefix="koha-$newversion/" HEAD | gzip -9 > "../koha_$newversion.tar.gz"} ); |
137 |
sys_command_output( qq{git archive --format=tar --prefix="koha-$newversion/" HEAD | gzip -9 > "../koha_$newversion.tar.gz"} ); |
131 |
|
138 |
|
132 |
my $pdebuildopts = $buildresult ? "--buildresult $buildresult" : ""; |
139 |
my $pdebuildopts = $buildresult ? "--buildresult $buildresult" : ""; |
133 |
sys_command_output( "pdebuild $pdebuildopts" ); |
140 |
sys_command_output_screen( "pdebuild $pdebuildopts" ); |
134 |
} |
141 |
} |
135 |
|
142 |
|
136 |
everything_is_committed() or die "cannot build: uncommited changes"; |
143 |
everything_is_committed() or die "cannot build: uncommited changes"; |
137 |
- |
|
|