| … | … | ||
|---|---|---|---|
| 73 | my $response = $socket->readline (undef); | 73 | my $response = $socket->readline (undef); |
| 74 | 74 | ||
| 75 | unless ($response =~ /^HTTP\/[0-9.]+\s+200\s+/) { | 75 | unless ($response =~ /^HTTP\/[0-9.]+\s+200\s+/) { |
| 76 | warn "$url: $response\n"; | 76 | warn "$url: $response\n"; |
| 77 | } | 77 | } |
| 78 | warn $response; | ||
| 79 | } | 78 | } |
| 80 | |||
| 81 | # syswrite $socket, $pkt; | ||
| 82 | }, | 79 | }, |
| 83 | ); | 80 | ); |
| 84 | 81 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |