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