--- AnyEvent-HTTP/HTTP.pm 2016/01/07 13:14:16 1.126 +++ AnyEvent-HTTP/HTTP.pm 2016/08/28 09:31:29 1.127 @@ -48,7 +48,7 @@ use base Exporter::; -our $VERSION = 2.22; +our $VERSION = 2.23; our @EXPORT = qw(http_get http_post http_head http_request); @@ -1463,8 +1463,6 @@ my %hdr; my $ofs = 0; - warn stat $fh; - warn -s _; if (stat $fh and -s _) { $ofs = -s _; warn "-s is ", $ofs; @@ -1502,7 +1500,7 @@ my $status = $hdr->{Status}; if (my $time = AnyEvent::HTTP::parse_date $hdr->{"last-modified"}) { - utime $fh, $time, $time; + utime $time, $time, $fh; } if ($status == 200 || $status == 206 || $status == 416) {