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.
--- 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]>
