From 5272c6daa181cf148e2dcddc54b0a6bdd3b4294c Mon Sep 17 00:00:00 2001 From: Jim Meyering Date: Wed, 22 Nov 2006 16:16:05 +0100 Subject: [PATCH] * announce-gen (print_news_deltas): Fix silly, but harmless typo: change "(:?..." to "(?:..." in regexps. --- ChangeLog | 3 +++ announce-gen | 6 +++--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index bd8e4ff..fde0d84 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,8 @@ 2006-11-22 Jim Meyering + * announce-gen (print_news_deltas): Fix silly, but harmless typo: + change "(:?..." to "(?:..." in regexps. + Post-release version change. * NEWS: Add a line for 6.7-pre. * configure.ac (AC_INIT): Bump to 6.7 and add "-pre" suffix. diff --git a/announce-gen b/announce-gen index 3330ad6..96774d9 100755 --- a/announce-gen +++ b/announce-gen @@ -191,7 +191,7 @@ sub print_news_deltas ($$$) # the first occurrence of $prev_version. my $in_items; - my $re_prefix = qr/\* (:?Noteworthy|Major) change/; + my $re_prefix = qr/\* (?:Noteworthy|Major) change/; open NEWS, '<', $news_file or die "$ME: $news_file: cannot open for reading: $!\n"; @@ -202,7 +202,7 @@ sub print_news_deltas ($$$) # Match lines like these: # * Major changes in release 5.0.1: # * Noteworthy changes in release 6.6 (2006-11-22) [stable] - $line =~ /^$re_prefix.*(:?[^\d.]|$)\Q$curr_version\E(:?[^\d.]|$)/o + $line =~ /^$re_prefix.*(?:[^\d.]|$)\Q$curr_version\E(?:[^\d.]|$)/o or next; $in_items = 1; print $line; @@ -212,7 +212,7 @@ sub print_news_deltas ($$$) # This regexp must not match version numbers in NEWS items. # For example, they might well say `introduced in 4.5.5', # and we don't want that to match. - $line =~ /^$re_prefix.*(:?[^\d.]|$)\Q$prev_version\E(:?[^\d.]|$)/o + $line =~ /^$re_prefix.*(?:[^\d.]|$)\Q$prev_version\E(?:[^\d.]|$)/o and last; print $line; } -- 2.7.4