[Bps-public-commit] r10817 - in Date-Extract: lib/Date

[sartak at bestpractical.com]

Author: sartak
Date: Wed Feb 13 12:58:56 2008
New Revision: 10817

Modified:
   Date-Extract/   (props changed)
   Date-Extract/Changes
   Date-Extract/lib/Date/Extract.pm

Log:
 r51796 at onn:  sartak | 2008-02-13 12:58:46 -0500
 month_day regex was backwards, reported and fixed by TSUKAMOTO


Modified: Date-Extract/Changes
==============================================================================
--- Date-Extract/Changes	(original)
+++ Date-Extract/Changes	Wed Feb 13 12:58:56 2008
@@ -1,5 +1,8 @@
 Revision history for Date-Extract
 
+0.02
+        month_day regex was backwards, reported and fixed by TSUKAMOTO
+
 0.01    Thu Dec 13 01:29:12 EDT 2007
         First version, released on an unsuspecting world.
 

Modified: Date-Extract/lib/Date/Extract.pm
==============================================================================
--- Date-Extract/lib/Date/Extract.pm	(original)
+++ Date-Extract/lib/Date/Extract.pm	Wed Feb 13 12:58:56 2008
@@ -231,7 +231,7 @@
     my $monthday          = "(?:$cardinal_monthday(?:st|nd|rd|th)?)";
 
     my $day_month         = "(?:$monthday\\s*$month)";
-    my $month_day         = "(?:$monthday\\s*$month)";
+    my $month_day         = "(?:$month\\s*$monthday)";
     my $day_month_year    = "(?:(?:$day_month|$month_day)\\s*,\\s*\\d\\d\\d\\d)";
 
     my $yyyymmdd          = "(?:\\d\\d\\d\\d[-/]\\d\\d[-/]\\d\\d)";