Lines Matching refs:my

6 my $VERSION = '2014-11-20 17:25'; # UTC
34 (my $ME = $0) =~ s|.*/||;
46   my ($exit_code) = @_;
47   my $STREAM = ($exit_code == 0 ? *STDOUT : *STDERR);
132   my ($s) = @_;
156   my ($f) = @_;
161   my $fail;
162   my $h = {};
163   my $in_code = 0;
164   my $sha;
165   while (defined (my $line = <F>))
204   my ($srcdir) = @_;
205   my @res = ();
208       my $qdir = shell_quote $srcdir;
209       my $cmd = "cd $qdir && git rev-parse --show-toplevel";
210       my $qcmd = shell_quote $cmd;
211       my $git_dir = qx($cmd);
223   my $since_date;
224   my $until_date;
225   my $format_string = '%s%n%b%n';
226   my $amend_file;
227   my $append_dot = 0;
228   my $cluster = 1;
229   my $strip_tab = 0;
230   my $strip_cherry_pick = 0;
231   my $srcdir;
254   my $amend_code = defined $amend_file ? parse_amend_file $amend_file : {};
256   my @cmd = ('git',
264   my $prev_multi_paragraph;
265   my $prev_date_line = '';
266   my @prev_coauthors = ();
269       defined (my $in = <PIPE>)
273       my $log_nbytes = $1;
275       my $log;
276       my $n_read = read PIPE, $log, $log_nbytes;
281       my ($sha, $rest) = split ':', $log, 2;
288       my $code = $amend_code->{$sha};
292           my $s = new Safe;
297           my $r = $s->reval("$code")
314       my @line = split "\n", $rest;
315       my $author_line = shift @line;
324       my $tiny = (grep (/^Copyright-paperwork-exempt:\s+[Yy]es$/, @line)
327       my $date_line = sprintf "%s  %s$tiny\n",
330       my @coauthors = grep /^Co-authored-by:.*$/, @line;
345       my $multi_paragraph = grep /^\s*$/, @line;
419   my $fail = 0;
420   foreach my $sha (keys %$amend_code)
433 # time-stamp-start: "my $VERSION = '"