| … | … | ||
|---|---|---|---|
| 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 |