From 120506c26ddd7c441cf684ded6058a65ca41315b Mon Sep 17 00:00:00 2001 From: Jim Meyering Date: Tue, 15 Jul 2003 06:05:04 +0000 Subject: Remove stray `:' in first regexp. Fix *both* tests. --- announce-gen | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'announce-gen') diff --git a/announce-gen b/announce-gen index 171e426aa..7b3a568fa 100755 --- a/announce-gen +++ b/announce-gen @@ -6,7 +6,7 @@ use Getopt::Long; use Digest::MD5; use Digest::SHA1; -(my $VERSION = '$Revision: 1.14 $ ') =~ tr/[0-9].//cd; +(my $VERSION = '$Revision: 1.15 $ ') =~ tr/[0-9].//cd; (my $ME = $0) =~ s|.*/||; my %valid_release_types = map {$_ => 1} qw (alpha beta major); @@ -306,7 +306,7 @@ EOF # Match lines like this one: # * Major changes in release 5.0.1: # but not any other line that starts with a space, *, or -. - $line =~ /^(\* .*changes in release :|[^ *-].*)\Q$curr_version\E/o + $line =~ /^(\* Major changes.*|[^ *-].*)\Q$curr_version\E/o or next; $in_items = 1; print $line; @@ -316,7 +316,7 @@ EOF # Be careful that this regexp cannot match version numbers # in NEWS items -- they might well say `introduced in 4.5.5', # and we don't want that to match. - $line =~ /^[^ *].*\Q$prev_version\E/o + $line =~ /^(\* Major changes.*|[^ *-].*)\Q$prev_version\E/o and last; print $line; } @@ -324,7 +324,7 @@ EOF close NEWS; $in_items - or die "$ME: $news_file: no matching lines\n"; + or die "$ME: $news_file: no matching lines for `$curr_version'\n"; } $release_type eq 'major' -- cgit v1.2.3-70-g09d2