TAO/tests/Bug_2183_Regression/hang_client.pl

   1 eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
   2      & eval 'exec perl -S $0 $argv:q'
   3      if 0;
   4
   5 # -*- perl -*-
   6
   7 use IO::Socket;
   8
   9 $sock = new IO::Socket::INET (
  10                               PeerAddr => shift || 'localhost',
  11                               PeerPort => 15000,        # your server port here
  12                               Proto    => 'tcp',
  13                              );
  14 die "Socket could not be created. Reason: $!\n" unless $sock;
  15
  16 # Send incomplete request
  17 print $sock pack("H*", "47494f50010100000000006a00000001");
  18
  19 # Block forever...
  20 while (1)
  21 {
  22         sleep(1000);
  23 }
  24
  25