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

[sartak at bestpractical.com]

Author: sartak
Date: Thu Dec 13 01:35:42 2007
New Revision: 9926

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

Log:
 r48965 at onn:  sartak | 2007-12-13 01:27:46 -0500
 Add support for 11-13-1986


Modified: Date-Extract/lib/Date/Extract.pm
==============================================================================
--- Date-Extract/lib/Date/Extract.pm	(original)
+++ Date-Extract/lib/Date/Extract.pm	Thu Dec 13 01:35:42 2007
@@ -236,6 +236,7 @@
 
     my $yyyymmdd          = "(?:\\d\\d\\d\\d[-/]\\d\\d[-/]\\d\\d)";
     my $ddmmyy            = "(?:\\d\\d[-/]\\d\\d[-/]\\d\\d)";
+    my $ddmmyyyy          = "(?:\\d\\d[-/]\\d\\d[-/]\\d\\d\\d\\d)";
 
     my $other             = $self->_build_more_regex;
     $other = "|$other"
@@ -251,6 +252,7 @@
           | $month_day        # 13 Nov
           | $yyyymmdd         # 1986/11/13
           | $ddmmyy           # 11-13-86
+          | $ddmmyyyy         # 11-13-1986
             $other            # anything from the subclass
         )\b
     }ix;