problem case with recurrence in DateTime::Event::ICal

[Mark D. Anderson]

Using DateTime::Event::ICal $VERSION = 0.08;

this test case causes a lot of warnings (and eventual death,
if called from DateTime::Format::ICal).

it happens when both bysetpos and dtstart are set.

I ran into this using an ics file "in the wild";
this isn't some artifical case.

-mda


use DateTime::Event::ICal;
use DateTime;

    DateTime::Event::ICal->recur(
                                   freq => 'monthly',
                                   interval => '09',
                                   byday => ['th'],
                                   bysetpos => [1],
                                   bymonthday => [15],
                                   count => '2',
                                   dtstart => DateTime->now(),
                                 dtend => DateTime->new(year => '2007'),
                                 until => DateTime->new(year => '2007'),
                                   );

or alternatively:

    DateTime::Format::ICal->parse_recurrence(
                                             recurrence =>
                                             
'FREQ=MONTHLY;INTERVAL=09;BYDAY=TH;BYSETPOS=1;BYMONTHDAY=15;COUNT=2',
                                   dtstart => DateTime->now(),
                                 dtend => DateTime->new(year => '2007'),
                                 until => DateTime->new(year => '2007'),
                                             ) 


---
Use of uninitialized value in sort at
/usr/local/lib/perl5/site_perl/5.8.4/DateTime/Event/ICal.pm line 469.
Use of uninitialized value in negation (-) at
/usr/local/lib/perl5/site_perl/5.8.4/i686-linux/DateTime.pm line 1246.
Use of uninitialized value in sort at
/usr/local/lib/perl5/site_perl/5.8.4/DateTime/Event/ICal.pm line 469.
Use of uninitialized value in negation (-) at
/usr/local/lib/perl5/site_perl/5.8.4/i686-linux/DateTime.pm line 1246.
...

Parameter #1 ("0") to DateTime::add_duration was not a
'DateTime::Duration' (it is a 0)
 at /usr/local/lib/perl5/site_perl/5.8.4/Set/Infinite/_recurrence.pm
 line 157