5 die "$0: must be run from top-level directory.\n"
6 unless -r
"configure.ac" && -r
'ChangeLog';
8 my $email = $ENV{'EMAIL'};
9 die "$0: you must define \$EMAIL.\n"
10 unless defined $email;
12 my $name = $ENV{'NAME'};
13 die "$0: you must define \$NAME.\n"
16 my ($y,$m,$d) = (localtime (time))[5,4,3];
19 my $date = sprintf ("%04d-%02d-%02d", $y, $m, $d);
21 # -----------------------------------------------------------------------------
24 my $filename = 'configure.ac';
31 open (*SRC
, "<$filename") || die "$0: failed to read $filename: $!\n";
32 open (*DST
, ">$filename.tmp") || die "$0: failed to write $filename.tmp: $!\n";
34 if (/version_epoch/) {
38 ?
/^(\s*m4_define\(\[\S*_version_minor\],\s*\[)(\d+)(\]\).*)/
39 : /^(\s*m4_define\(\[\S*_version_micro\],\s*\[)(\d+)(\]\).*)/) {
40 $_ = $1 . ($2 + 1) . $3 . "\n";
48 rename ("$filename.tmp", $filename);
51 # -----------------------------------------------------------------------------
54 my $filename = 'NEWS';
59 open (*SRC
, "<$filename") || die "$0: failed to read $filename: $!\n";
60 open (*DST
, ">$filename.tmp") || die "$0: failed to write $filename.tmp: $!\n";
65 die "[[[$_]]\n" unless /^(\S+\s+\d+\.\d+\.)(\d+)(.*)/;
66 print DST
"$1", ($2 + 1), "$3\n\n", ("-" x
74), "\n";
74 rename ("$filename.tmp", $filename);
77 # -----------------------------------------------------------------------------
80 my $filename = 'ChangeLog';
82 my $entry = "$date $name <$email>\n\n\t* configure.ac: Post-release bump.\n\n";
86 open (*SRC
, "<$filename") || die "$0: failed to read $filename: $!\n";
87 open (*DST
, ">$filename.tmp") || die "$0: failed to write $filename.tmp: $!\n";
90 foreach (<SRC
>) { print DST
; }
94 rename ("$filename.tmp", $filename);