On Mon, Apr 08, 2002 at 09:56:56PM +0900, Tatsuhiko Miyagawa wrote:
> At Mon, 8 Apr 2002 13:45:51 +0100,
> Graham Barr wrote:
>
> > > > 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.
>
> Okay, then here's a patch for LWP to remove fractional seconds test.
I belive Gisle has a fix which preserves the fractional support of HTTP::Date,
which is probably the right thing todo.
Graham.
>
> --- t/base/date.t~ Fri Jan 5 05:25:24 2001
> +++ t/base/date.t Mon Apr 8 21:53:40 2002
> @@ -3,7 +3,7 @@
> require Time::Local if $^O eq "MacOS";
> my $offset = ($^O eq "MacOS") ? Time::Local::timegm(0,0,0,1,0,70) : 0;
>
> -print "1..58\n";
> +print "1..57\n";
>
> $no = 1;
> $| = 1;
> @@ -156,10 +156,6 @@
>
> $t = time2iso(str2time("11-12-96 12:05PM"));print "$t\n";
> ok($t ne "1996-11-12 12:05:00");
> -
> -$t = str2time("2000-01-01 00:00:01.234");
> -print "FRAC $t = ", time2iso($t), "\n";
> -ok(abs(($t - int($t)) - 0.234) > 0.000001);
>
> $a = time2iso;
> $b = time2iso(500000);
>
>
>
> --
> Tatsuhiko Miyagawa <[EMAIL PROTECTED]>
