From 36db69ff1c0cef48fca06dc50d81ec2953807e86 Mon Sep 17 00:00:00 2001
From: Jim Meyering <jim@meyering.net>
Date: Sat, 22 Feb 2003 16:30:28 +0000
Subject: [PATCH] Escape dots in regexps for $curr_version and $prev_version.
 Fail if we find no lines in NEWS.

---
 announce-gen | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/announce-gen b/announce-gen
index 5259f9d72e..5239949f6f 100755
--- a/announce-gen
+++ b/announce-gen
@@ -6,7 +6,7 @@ use Getopt::Long;
 use Digest::MD5;
 use Digest::SHA1;
 
-(my $VERSION = '$Revision: 1.5 $ ') =~ tr/[0-9].//cd;
+(my $VERSION = '$Revision: 1.6 $ ') =~ tr/[0-9].//cd;
 (my $ME = $0) =~ s|.*/||;
 
 END
@@ -205,21 +205,22 @@ EOF
 	{
 	  if ( ! $in_items)
 	    {
-	      # FIXME: quote dots
-	      $line =~ /^[^ *].*$curr_version/o
+	      $line =~ /^[^ *].*\Q$curr_version\E/o
 		or next;
 	      $in_items = 1;
 	      print $line;
 	    }
 	  else
 	    {
-	      # FIXME: quote dots
-	      $line =~ /^[^ *].*$prev_version/o
+	      $line =~ /^[^ *].*\Q$prev_version\E/o
 		and last;
 	      print $line;
 	    }
 	}
       close NEWS;
+
+      $in_items
+	or die "$ME: $news_file: no matching lines\n";
     }
 
   # FIXME: depend on whether it's a test release
-- 
2.47.3