View | Details | Raw Unified | Return to bug 6722
Collapse All | Expand All

(-)a/debian/build-git-snapshot (-2 / +8 lines)
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
- 

Return to bug 6722