Lines Matching refs:sha

163   my $sha;
177           $sha = lc $1;
179           exists $h->{$sha}
185           $h->{$sha} ||= '';
186           $h->{$sha} .= "$line\n";
276       my ($sha, $rest) = split ':', $log, 2;
277       defined $sha
279       $sha =~ /^[0-9a-fA-F]{40}$/
280         or die "$ME:$.: invalid SHA1: $sha\n";
283       my $code = $amend_code->{$sha};
293             or die "$ME:$.:$sha: failed to eval \"$code\":\n$@\n";
296           delete $amend_code->{$sha};
415   foreach my $sha (keys %$amend_code)
417       warn "$ME:$amend_file: unused entry: $sha\n";