Lines Matching refs:my
6 my $VERSION = '2012-07-29 06:11'; # UTC
34 (my $ME = $0) =~ s|.*/||;
46 my ($exit_code) = @_;
47 my $STREAM = ($exit_code == 0 ? *STDOUT : *STDERR);
131 my ($s) = @_;
155 my ($f) = @_;
160 my $fail;
161 my $h = {};
162 my $in_code = 0;
163 my $sha;
164 while (defined (my $line = <F>))
203 my ($srcdir) = @_;
204 my @res = ();
207 my $qdir = shell_quote $srcdir;
208 my $cmd = "cd $qdir && git rev-parse --show-toplevel";
209 my $qcmd = shell_quote $cmd;
210 my $git_dir = qx($cmd);
222 my $since_date;
223 my $format_string = '%s%n%b%n';
224 my $amend_file;
225 my $append_dot = 0;
226 my $cluster = 1;
227 my $strip_tab = 0;
228 my $strip_cherry_pick = 0;
229 my $srcdir;
249 my $amend_code = defined $amend_file ? parse_amend_file $amend_file : {};
251 my @cmd = ('git',
259 my $prev_multi_paragraph;
260 my $prev_date_line = '';
261 my @prev_coauthors = ();
264 defined (my $in = <PIPE>)
268 my $log_nbytes = $1;
270 my $log;
271 my $n_read = read PIPE, $log, $log_nbytes;
276 my ($sha, $rest) = split ':', $log, 2;
283 my $code = $amend_code->{$sha};
287 my $s = new Safe;
292 my $r = $s->reval("$code")
309 my @line = split "\n", $rest;
310 my $author_line = shift @line;
319 my $tiny = (grep (/^Copyright-paperwork-exempt:\s+[Yy]es$/, @line)
322 my $date_line = sprintf "%s %s$tiny\n",
325 my @coauthors = grep /^Co-authored-by:.*$/, @line;
340 my $multi_paragraph = grep /^\s*$/, @line;
414 my $fail = 0;
415 foreach my $sha (keys %$amend_code)
428 # time-stamp-start: "my $VERSION = '"