|
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 |
- |
|
|