open C, ">", "../mcommit" or confess "$!";
print C $commit or confess "$!";
close C or confess "$!";
- $build = cmdoutput @git, qw(hash-object -w -t commit ../mcommit);
+ $build = hash_commit '../mcommit';
}
$result = $build;
mwrecknote($wrecknotes, 'merged-result', $result);
my $spec = shift @ARGV;
my $commit = git_rev_parse "$spec^{commit}";
push @upstreams, { Commit => $commit,
- Source => (f_ "%s, from command line", $ARGV[0]),
+ Source => (f_ "%s, from command line", $spec),
Only => 1,
};
}