This code:
my( $year, $month, $day, $hour, $minute, $seconds ) = (localtime)[5,4,
+3,2,1,0];
$year += 1900;
$month += 1;
my $source = DateTime->new(year => $year,
month => $month,
day => $day,
hour => $hour,
minute => $minute,
second => $seconds,
nanosecond => 1,
time_zone => 'America/Chicago');
my $result = $source->clone()
->set_time_zone('Australia/Sydney');
print $result->now();
produces this error: Program fragment delivered error ``Can't locate object method "_normalize_nanoseconds" via package "2009-08-26T00:59:20" at /usr/local/lib/perl5/site_perl/5.8.8/mach/DateTime.pm line 207.''
sub _normalize_nanoseconds is in the DateTime.pm file. Any suggestions on what I am doing wrong?