fix rcs_getctime to return first, not last, change time

This was being buggy and returning the file's last change time, not its
creation time.

(I checked all the others (except tla) and they're ok.)
master
Joey Hess 2009-03-20 16:32:37 -04:00
parent 2c86616a6a
commit a2c0423e54
1 changed files with 2 additions and 2 deletions

View File

@ -594,8 +594,8 @@ sub rcs_getctime ($) {
# Remove srcdir prefix
$file =~ s/^\Q$config{srcdir}\E\/?//;
my $sha1 = git_sha1($file);
my $ci = git_commit_info($sha1, 1);
my @sha1s = run_or_non('git', 'rev-list', 'HEAD', '--', $file);
my $ci = git_commit_info($sha1s[$#sha1s], 1);
my $ctime = $ci->{'author_epoch'};
debug("ctime for '$file': ". localtime($ctime));