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

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

diff --git a/ChangeLog b/ChangeLog
index bd8e4ffaf52b8470ccc7f191aee1399c8901b36a..fde0d84fa5bd0242322580a7205526caf9c15a74 100644 (file)
--- 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 3330ad6edee3b8dcef7171ea9715305b8f455d4c..96774d9f6bcf12d3394786708bc9efc228b07bca 100755 (executable)
--- 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;
        }