Lines Matching refs:commit

76   my $commit = shift;
78   my $author_info = "by $commit->{author}"
79                     . ($commit->{author} eq $commit->{committer}
81                        : " committed by $commit->{committer}");
85     my $header = "$commit->{hash} $author_info: $commit->{msg}";
90               . $commit->{hash};
96     print "  $commit->{hash} $author_info: $commit->{msg}\n";
104   my $commit = shift;
116               @{$commit->{files}};
132       $commit->{msg} = 'Touched files under cpan/ and other locations';
133       push @$unsafe, $commit;
136       $commit->{msg} = 'Touched multiple directories under cpan/';
137       push @$unsafe, $commit;
140       $commit->{msg} = 'Touched files under cpan/, but does not update '
142       push @$unsafe, $commit;
144     elsif ($commit->{commit_msg} =~ /(?:up(?:grad|dat)|import)(?:ed?|ing)/i) {
145       $commit->{msg} = 'Touched files under cpan/ with '
147       push @$safe, $commit;
150       $commit->{msg} = 'Touched files under cpan/ without '
152       push @$unsafe, $commit;
167       $commit->{msg} = 'Touched files under dist/ and other locations';
168       push @$unsafe, $commit;
171       $commit->{msg} = 'Touched multiple directories under cpan/';
172       push @$unsafe, $commit;
183   my $commit;
186     if (not $commit) {
191       $commit = {
198       check_commit($commit, \@safe_commits, \@unsafe_commits);
199       $commit = undef;
202       push @{$commit->{files}}, $line;