From 4e78ece7717b3f248e3ecf7a32f7717613818969 Mon Sep 17 00:00:00 2001
From: Robert Muir <rmuir@apache.org>
Date: Sat, 9 Jun 2012 01:33:45 +0000
Subject: [PATCH] fix changes2html to allow for -ALPHA or -BETA releases

git-svn-id: https://svn.apache.org/repos/asf/lucene/dev/trunk@1348294 13f79535-47bb-0310-9956-ffa450edef68
---
 lucene/site/changes/changes2html.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lucene/site/changes/changes2html.pl b/lucene/site/changes/changes2html.pl
index de1359c164c..e6756e3b477 100755
--- a/lucene/site/changes/changes2html.pl
+++ b/lucene/site/changes/changes2html.pl
@@ -64,7 +64,8 @@ for (my $line_num = 0 ; $line_num <= $#lines ; ++$line_num) {
   if (/\s*===+\s*(.*?)\s*===+\s*/) {   # New-style release headings
     $release = $1;
     $release =~ s/^(?:release|lucene)\s*//i;  # Trim "Release " or "Lucene " prefix
-    ($release, $relinfo) = ($release =~ /^(\d+(?:\.(?:\d+|[xyz]))*|Trunk)\s*(.*)/i);
+    ($release, $relinfo) = ($release =~ /^(\d+(?:\.(?:\d+(\-ALPHA|\-BETA)?|[xyz]))*|Trunk)\s*(.*)/i);
+    $relinfo =~ s/(\-ALPHA|\-BETA)//;  # Trim -ALPHA or -BETA to only be in release (TODO: please fix the above regex instead!)
     $relinfo =~ s/\s*:\s*$//;          # Trim trailing colon
     $relinfo =~ s/^\s*,\s*//;          # Trim leading comma
     ($reldate, $relinfo) = get_release_date($release, $relinfo);