* announce-gen (print_news_deltas): Fix silly, but harmless typo:

change "(:?..." to "(?:..." in regexps.

2 files changed, 6 insertions, 3 deletions

diff --git a/ChangeLog b/ChangeLog
index bd8e4ffaf..fde0d84fa 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2006-11-22  Jim Meyering  <jim@meyering.net>
 
+	* 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 3330ad6ed..96774d9f6 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;
 	}