Curiosity got the better of me. The fix works and is demonstrated below.
Now it really *is* past my bedtime or I'd write a test... ;-)
On Monday 22 May 2006 01:06, Jason Thaxter wrote:
> 167c167
> < if ($rd_secs >= 86400) {
> ---
>
> > if ($rd_secs > 86400) {
>
> Seems obvious enough. But it's past my bedtime and I've got no time for
> testing this at the moment. If someone who knows the internals better than
> i could confirm this fix, I'd be grateful. Else, I'll try to produce a test
> case and confirm myself in about 24 hours.
~) perl -MDateTime::Format::Epoch::JD
$time = 2453877.5;
$dt = DateTime::Format::Epoch::JD->parse_datetime($time);
print "JD=$dt\n";
^D
The 'hour' parameter ("24") to DateTime::new did not pass the 'is between 0
and 23' callback
at /usr/local/lib/perl5/site_perl/5.8.8/DateTime/Format/Epoch.pm line 179
# su'd, made edit...
~) perl -MDateTime::Format::Epoch::JD
$time = 2453877.5;
$dt = DateTime::Format::Epoch::JD->parse_datetime($time);
print "JD=$dt\n";
^D
JD=2006-05-22T00:00:00
Cheers,
Jason
--
----------------------------------------------
Jason Thaxter GoMOOS
350 Commercial Street, Suite 308
Portland, ME 0410
Office: 207.773.0423
Tel: 207.228.1665
Email: [EMAIL PROTECTED]
----------------www.gomoos.org----------------
