From: Jim Meyering <jim@meyering.net>
Date: Sat, 22 Feb 2003 16:30:28 +0000 (+0000)
Subject: Escape dots in regexps for $curr_version and $prev_version.
X-Git-Tag: v4.5.9~141
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=36db69ff1c0cef48fca06dc50d81ec2953807e86;p=thirdparty%2Fcoreutils.git

Escape dots in regexps for $curr_version and $prev_version.
Fail if we find no lines in NEWS.
---

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