my ($file) = @_;
my @cmdline = ("hg", "-R", $config{srcdir}, "log", "-v",
my ($file) = @_;
my @cmdline = ("hg", "-R", $config{srcdir}, "log", "-v",
open (my $out, "-|", @cmdline);
my @log = (mercurial_log($out));
open (my $out, "-|", @cmdline);
my @log = (mercurial_log($out));