On Fri Aug 29 20:53:14 2008, ankur655@gmail.com wrote:
Show quoted text> dateparse> Feb 14, 1997
> Invalid day of month (day = 30 - month = 2 - year = 2008)
> at /usr/local/share/perl/5.8.8/DateTime/Format/Natural/Base.pm line 856
>
> dateparse> Feb 14, 1997
> Invalid day of month (day = 30 - month = 2 - year = 2008)
> at /usr/local/share/perl/5.8.8/DateTime/Format/Natural/Base.pm line 856
Thanks for the report.
The buggy behavior is due to a table entry within the english metadata
class with a slightly wrong dispatch order, which will trigger
DateTime's setter methods in the uppermost Base class not as required.
I intend to push following changes shortly:
Index: lib/DateTime/Format/Natural.pm
===================================================================
--- lib/DateTime/Format/Natural.pm (revision 239)
+++ lib/DateTime/Format/Natural.pm (working copy)
@@ -10,7 +10,7 @@
use List::MoreUtils qw(all any);
use Params::Validate ':all';
-our $VERSION = '0.72';
+our $VERSION = '0.72_01';
validation_options(
on_fail => sub
@@ -597,6 +597,7 @@
Jesse Vincent
Jason May
Pat Kale
+ Ankur Gupta
=head1 SEE ALSO
Index: lib/DateTime/Format/Natural/Lang/EN.pm
===================================================================
--- lib/DateTime/Format/Natural/Lang/EN.pm (revision 239)
+++ lib/DateTime/Format/Natural/Lang/EN.pm (working copy)
@@ -4,7 +4,7 @@
use warnings;
use base qw(DateTime::Format::Natural::Lang::Base);
-our $VERSION = '1.11';
+our $VERSION = '1.12';
our (%init,
%timespan,
@@ -890,13 +890,13 @@
[ 'REGEXP', 'REGEXP', 'REGEXP' ],
[
{ 0 => $RE{monthday}, 1 => $RE{month}, 2 => $RE{year} },
- [ [ 0 ], [ 1 ], [ 2 ] ],
- [ '_day', '_month', '_year' ],
+ [ [ 2 ], [ 1 ], [ 0 ] ],
+ [ '_year', '_month', '_day' ],
],
[
{ 0 => $RE{month}, 1 => $RE{monthday}, 2 => $RE{year} },
- [ [ 0 ], [ 1 ], [ 2 ] ],
- [ '_month', '_day', '_year' ],
+ [ [ 2 ], [ 0 ], [ 1 ] ],
+ [ '_year', '_month', '_day' ],
],
],
count_weekday_in_month => [
