Lines Matching refs:my
6 my $VERSION = '2012-06-08 06:53'; # UTC
37 (my $ME = $0) =~ s|.*/||;
39 my %valid_release_types = map {$_ => 1} qw (alpha beta stable);
40 my @archive_suffixes = ('tar.gz', 'tar.bz2', 'tar.lzma', 'tar.xz');
41 my $srcdir = '.';
45 my ($exit_code) = @_;
46 my $STREAM = ($exit_code == 0 ? *STDOUT : *STDERR);
53 my @types = sort keys %valid_release_types;
103 my (@file) = @_;
105 my $fail = 0;
106 my %res;
107 foreach my $f (@file)
109 my $cmd = "du -h $f";
110 my $t = `$cmd`;
130 my ($title, $url, $size, @file) = @_;
132 foreach my $url (@{$url})
134 for my $file (@file)
153 my (@file) = @_;
158 foreach my $meth (qw (md5 sha1))
160 foreach my $f (@file)
165 my $dig =
185 my ($news_file, $prev_version, $curr_version) = @_;
187 my $news_name = $news_file;
195 my $in_items;
197 my $re_prefix = qr/(?:\* )?(?:Noteworthy c|Major c|C)(?i:hanges)/;
199 my $found_news;
202 while (defined (my $line = <NEWS>))
236 my ($package_name, $prev_version) = @_;
242 my @changelog;
250 my %changelog = map {$_ => 1} @changelog;
255 my @dir = qw ( . src lib m4 config doc );
264 my @reordered;
265 foreach my $d (@dir)
267 my $dot_slash = $d eq '.' ? $d : "./$d";
268 my $target = "$dot_slash/ChangeLog";
283 my $prev_cvs_tag = "\U$package_name\E-$prev_version";
285 my $cmd = "cvs -n diff -u -r$prev_cvs_tag -rHEAD @reordered";
293 my $prev_printed_line_empty = 1;
294 while (defined (my $line = <DIFF>))
298 my $separator = "*"x70 ."\n";
322 my ($tool_list, $gnulib_version) = @_;
326 my $fail;
327 my @tool_version_pair;
328 foreach my $t (@$tool_list)
337 my ($first_line, undef) = split ("\n", `$t --version`);
363 my $mail_headers;
364 my $release_type;
365 my $package_name;
366 my $prev_version;
367 my $curr_version;
368 my $gpg_key_id;
369 my @url_dir_list;
370 my @news_file;
371 my $bootstrap_tools;
372 my $gnulib_version;
373 my $print_checksums_p = 1;
378 my ($msg) = @_;
404 my $fail = 0;
419 my @tool_list = split ',', $bootstrap_tools;
435 my $my_distdir = "$package_name-$curr_version";
437 my $xd = "$package_name-$prev_version-$curr_version.xdelta";
439 my @candidates = map { "$my_distdir.$_" } @archive_suffixes;
440 my @tarballs = grep {-f $_} @candidates;
444 my @sizable = @tarballs;
447 my %size = sizes (@sizable);
451 my $headers = '';
473 my $m = "$url_dir_list[0]/$tarballs[0]";
485 my @sig_files = map { "$_.sig" } @tarballs;
495 (my $m = "$url_dir_list[0]/$tarballs[0]")
525 my @tool_versions = get_tool_versions (\@tool_list, $gnulib_version);
551 ## time-stamp-start: "my $VERSION = '"