View | Details | Raw Unified | Return to bug 237817 | Differences between
and this patch

Collapse All | Expand All

(-)test.pl (-1 / +1 lines)
Lines 10-16 Link Here
10
  my($SOCKET) = new IO::Socket::INET( Proto   => "tcp",
10
  my($SOCKET) = new IO::Socket::INET( Proto   => "tcp",
11
                                      PeerAddr=> "127.0.0.1:80");
11
                                      PeerAddr=> "127.0.0.1:80");
12
  if (! defined $SOCKET) { die $!; }
12
  if (! defined $SOCKET) { die $!; }
13
  print $SOCKET "GET /?$_ HTTP/1.0\n\n";
13
  print $SOCKET "GET /?$_ HTTP/1.0\r\n\r\n";
14
  $response = <$SOCKET>;
14
  $response = <$SOCKET>;
15
  print $response;
15
  print $response;
16
  close($SOCKET);
16
  close($SOCKET);

Return to bug 237817