This is a bug in HTTP::Date which the latest Time::Local::localtime show
and previous version did not. I thought a fixed HTTP::Date had been released.
Graham.
On Mon, Apr 08, 2002 at 07:44:27PM +0900, Tatsuhiko Miyagawa wrote:
> libwww-perl-5.64 date test passes with 5.7.2 or earlier, but fails
> with bleedperl. Here's a snippet of the code and its output.
>
>
> $t = str2time("2000-01-01 00:00:01.234");
> print "FRAC $t = ", time2iso($t), "\n";
> ok(abs(($t - int($t)) - 0.234) > 0.000001); # ok() accepts false and says ok
>
> FRAC 946652401 = 2000-01-01 00:00:01
> not ok 51
>
> This is due to that Time::Local::localtime() uses 'integer' in the
> calculation, thus breaks floating point seconds into
> integer. Simplified test script as follows:
>
> use Time::Local;
> use Test::More 'no_plan';
>
> my $t = timelocal('01.234', 0, 0, 1, 1, 99);
> is $t, 917794801.234;
>
> which passes with 5.7.2, but fails with bleedperl.
>
>
> --
> Tatsuhiko Miyagawa <[EMAIL PROTECTED]>
