bitlair/revbank
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Irritante melding wegwerken

Browse source
This commit is contained in:
bar 2011-04-26 19:59:04 +02:00
parent fa1010d9a0
commit 08e95b5730
1 changed files with 2 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
revbank
View file

@ -125,12 +125,8 @@ sub now {
sub git_commit { sub git_commit {
my ($message) = @_; my ($message) = @_;
open my $pipe, '-|', system qw(git commit -q revbank.accounts .revbank.undo), -m => $message;
qw(git commit -q revbank.accounts .revbank.undo), -m => $message system "git push -q bar.git 2>&1 | grep -v 'Unpacking objects' >&2"
or die $!;
1 while readline $pipe; # /dev/null, maar dan anders
close $pipe;
system qw(git push -q bar.git);
} }
sub parse_product { sub parse_product {