Escape dots in regexps for $curr_version and $prev_version.

Fail if we find no lines in NEWS.

1 files changed, 6 insertions, 5 deletions

diff --git a/announce-gen b/announce-gen
index 5259f9d72..5239949f6 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