mirror of
https://git.freebsd.org/ports.git
synced 2025-06-18 11:10:32 -04:00
b57c6320ea
Also some cleanups from swills and me. PR: 237817 Submitted by: HATANO Tomomi <hatanou@infolab.ne.jp> Approved by: kiwi@oav.net (maintainer)
11 lines
400 B
Perl
11 lines
400 B
Perl
--- test.pl.orig 2017-02-22 02:33:36 UTC
|
|
+++ test.pl
|
|
@@ -10,7 +10,7 @@ for(0..100) {
|
|
my($SOCKET) = new IO::Socket::INET( Proto => "tcp",
|
|
PeerAddr=> "127.0.0.1:80");
|
|
if (! defined $SOCKET) { die $!; }
|
|
- print $SOCKET "GET /?$_ HTTP/1.0\n\n";
|
|
+ print $SOCKET "GET /?$_ HTTP/1.0\r\n\r\n";
|
|
$response = <$SOCKET>;
|
|
print $response;
|
|
close($SOCKET);
|