(my $res1, $stdout, $stderr) = captureStdoutStderr(600,("hg", "log", "-r", $id, "--template", "{node|short} {branch}"));

    (my $res1, $stdout, $stderr) = captureStdoutStderr(600,("hg", "log", "-r", $id, "--template", "{node|short} {rev} {branch}"));

    my ($revision, $branch) = split ' ', $stdout;

    my ($revision, $revCount, $branch) = split ' ', $stdout;

        , revCount => int($revCount)