Irritante melding wegwerken
This commit is contained in:
parent
fa1010d9a0
commit
08e95b5730
1 changed files with 2 additions and 6 deletions
8
revbank
8
revbank
|
@ -125,12 +125,8 @@ sub now {
|
|||
|
||||
sub git_commit {
|
||||
my ($message) = @_;
|
||||
open my $pipe, '-|',
|
||||
qw(git commit -q revbank.accounts .revbank.undo), -m => $message
|
||||
or die $!;
|
||||
1 while readline $pipe; # /dev/null, maar dan anders
|
||||
close $pipe;
|
||||
system qw(git push -q bar.git);
|
||||
system qw(git commit -q revbank.accounts .revbank.undo), -m => $message;
|
||||
system "git push -q bar.git 2>&1 | grep -v 'Unpacking objects' >&2"
|
||||
}
|
||||
|
||||
sub parse_product {
|
||||
|
|
Loading…
Add table
Reference in a new issue