$user =~ s/^\s*//;
push @ret, {
- id => $info->{"changeset"},
+ rev => $info->{"changeset"},
user => $user,
committype => "mercurial",
- when => time - str2time($info->{"date"}),
+ when => str2time($info->{"date"}),
message => [@message],
pages => [@pages],
};