From 3216e6e390fee2287ec15e09f245c796aa543655 Mon Sep 17 00:00:00 2001
From: Sam Boyer <drupal@samboyer.org>
Date: Fri, 18 Feb 2011 04:11:20 -0800
Subject: [PATCH] Robustify our tag regex a bit.

---
 shared.php | 20 +++++++++++++++++---
 1 file changed, 17 insertions(+), 3 deletions(-)

diff --git a/shared.php b/shared.php
index 616c129..8978523 100644
--- a/shared.php
+++ b/shared.php
@@ -44,6 +44,11 @@
       '/^(\d)-(\d)-(\d+)/' => '\1.\2.\3',
       // 5 and later base transform
       '/^(\d)-(\d+)/' => '\1.\2',
+      // And now lowercase all possible extra strings
+      '/UNSTABLE/' => 'unstable',
+      '/ALPHA/' => 'alpha',
+      '/BETA/' => 'beta',
+      '/RC/' => 'rc',
     ),
     'tagmatch' => '/^DRUPAL-\d(-\d)?-\d+(-(\w+)(-)?(\d+)?)?$/',
   ),
@@ -64,11 +69,20 @@
       // Strip DRUPAL- prefix.
       '/^DRUPAL-/' => '',
       // 4-7 and earlier base transform
-      '/^(\d)-(\d)--(\d+)-(\d+)/' => '\1.\2.x-\3.\4',
+      '/^(\d)-(\d)--(\d+)-(\d+)$/' => '\1.\2.x-\3.\4',
+      // Aggressively normalize post-version strings for 4-7 and earlier
+      '/^(\d)-(\d)--(\d+)-(\d+)(-)?([A-Za-z]+)(-)?(\d+)?$/' => '\1.\2.x-\3.\4-\6\8',
       // 5 and later base transform
-      '/^(\d)--(\d+)-(\d+)/' => '\1.x-\2.\3',
+      '/^(\d)--(\d+)-(\d+)$/' => '\1.x-\2.\3',
+      // Aggressively normalize post-version strings for 5 and later
+      '/^(\d)--(\d+)-(\d+)(-)?([A-Za-z]+)(-)?(\d+)?$/' => '\1.x-\2.\3-\5\7',
+      // And now lowercase all possible extra strings
+      '/UNSTABLE/' => 'unstable',
+      '/ALPHA/' => 'alpha',
+      '/BETA/' => 'beta',
+      '/RC/' => 'rc',
     ),
-    'tagmatch' => '/^DRUPAL-\d(-\d)?--\d+-\d+(-(\w+)(-)?(\d+)?)?$/',
+    'tagmatch' => '/^DRUPAL-\d(-\d)?--\d+-\d+((-)?(\w+)(-)?(\d+)?)?$/',
   ),
 );