Home | History | Annotate | Download | only in extra

Lines Matching refs:sha

124 FILE must consist of <SHA,CODE+> pairs where SHA is a 40-byte SHA1 (alone on
167 # F must consist of <SHA,CODE+> pairs where SHA is a 40-byte SHA1
181   my $sha;
195           $sha = lc $1;
197           exists $h->{$sha}
203           $h->{$sha} ||= '';
204           $h->{$sha} .= "$line\n";
303       my ($sha, $rest) = split ':', $log, 2;
304       defined $sha
306       $sha =~ /^[[:xdigit:]]{40}$/
307         or die "$ME:$.: invalid SHA1: $sha\n";
314               if ($sha =~ /^$_/)
323       my $code = $amend_code->{$sha};
333             or die "$ME:$.:$sha: failed to eval \"$code\":\n$@\n";
336           delete $amend_code->{$sha};
409           warn "$ME: warning: skipping $sha due to $skipflag\n";
459                    . "  commit $sha\n  $date_line\n";
498   foreach my $sha (keys %$amend_code)
500       warn "$ME:$amend_file: unused entry: $sha\n";