Lines Matching refs:sha

164   my $sha;
178           $sha = lc $1;
180           exists $h->{$sha}
186           $h->{$sha} ||= '';
187           $h->{$sha} .= "$line\n";
281       my ($sha, $rest) = split ':', $log, 2;
282       defined $sha
284       $sha =~ /^[0-9a-fA-F]{40}$/
285         or die "$ME:$.: invalid SHA1: $sha\n";
288       my $code = $amend_code->{$sha};
298             or die "$ME:$.:$sha: failed to eval \"$code\":\n$@\n";
301           delete $amend_code->{$sha};
420   foreach my $sha (keys %$amend_code)
422       warn "$ME:$amend_file: unused entry: $sha\n";