Hi all,
First I would like to thank you all for your time and work with DateTime,
its highly appreciated!
I believe this is a bug.
[EMAIL PROTECTED] event]$ cat time.pl
#!/usr/bin/perl
use strict;
use warnings;
use Date::Calc qw(Week_Number);
use DateTime;
my $dt = DateTime->new(
year => 2003,
month => 6,
day => 1,
);
print "DateTime : ", $dt->week_number, "\n";
print "Date::Calc : ", Week_Number( 2003, 6, 1 ), "\n";
[EMAIL PROTECTED] event]$ perl time.pl
DateTime : 23
Date::Calc : 22
I was expecting 22.
[EMAIL PROTECTED] event]$ perl -MDateTime -le 'print $DateTime::VERSION;'
0.07
Regards
Christian Hansen
...........................................................
Christian Hansen PHONE: +46 (0)40 660 17 50
[EMAIL PROTECTED] CELL: +46 (0)708 42 88 83
FAX: +46 (0)40 660 17 51
http://www.ngmedia.com/ UIN: 127 688 22
