added commit which is called at end of batch

[angular-mojolicious.git] / couchdb-trigger.pl

diff --git a/couchdb-trigger.pl b/couchdb-trigger.pl
index 02f5c32..873beee 100755 (executable)
--- a/couchdb-trigger.pl
+++ b/couchdb-trigger.pl
@@ -25,6 +25,7 @@ my ( $url, $trigger_path ) = @ARGV;
 $url          ||= 'http://localhost:5984/monitor';
 $trigger_path ||= 'trigger/shell.pm' ;
 
+sub commit { warn "# commit ignored\n"; }
 require $trigger_path if -e $trigger_path;
 
 my $seq = 0;
@@ -114,6 +115,8 @@ while( ! $error ) {
 
                }
 
+               commit;
+
        });
        $client->start($tx);