From fa1010d9a0b3260ddb4faf9a8050f5912a82ba6f Mon Sep 17 00:00:00 2001
From: bar <bar@regulator.space.revspace.nl>
Date: Tue, 26 Apr 2011 19:53:15 +0200
Subject: [PATCH] Probeersel

---
 revbank | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/revbank b/revbank
index 26f1a17..cc673f0 100755
--- a/revbank
+++ b/revbank
@@ -125,7 +125,11 @@ sub now {
 
 sub git_commit {
     my ($message) = @_;
-    system qw(git commit -q revbank.accounts .revbank.undo), -m => $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);
 }