… | … | ||
---|---|---|---|
492 | 492 | ||
493 | warn stat $fh; | 493 | warn stat $fh; |
494 | warn -s _; | 494 | warn -s _; |
495 | if (stat $fh and -s _) { | 495 | if (stat $fh and -s _) { |
496 | $ofs = -s _; | 496 | $ofs = -s _; |
497 | warn "-s is ", $ofs;#d# | 497 | warn "-s is ", $ofs; |
498 | $hdr{"if-unmodified-since"} = AnyEvent::HTTP::format_date +(stat _)[9]; | 498 | $hdr{"if-unmodified-since"} = AnyEvent::HTTP::format_date +(stat _)[9]; |
499 | $hdr{"range"} = "bytes=$ofs-"; | 499 | $hdr{"range"} = "bytes=$ofs-"; |
500 | } | 500 | } |
501 | 501 | ||
502 | http_get $url, | 502 | http_get $url, |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |