1 files changed, 26 insertions, 0 deletions
diff --git a/TAO/tests/Bug_2183_Regression/hang_client.pl b/TAO/tests/Bug_2183_Regression/hang_client.pl
new file mode 100755
index 00000000000..6d2859337db
--- /dev/null
+++ b/TAO/tests/Bug_2183_Regression/hang_client.pl
@@ -0,0 +1,26 @@
+eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
+     & eval 'exec perl -S $0 $argv:q'
+     if 0;
+
+# -*- perl -*-
+# $Id$
+
+use IO::Socket;
+
+$sock = new IO::Socket::INET (
+                              PeerAddr => 'localhost',
+                              PeerPort => 15000,        # your server port here
+                              Proto    => 'tcp',
+                             );
+die "Socket could not be created. Reason: $!\n" unless $sock;
+
+# Send incomplete request
+print $sock pack("H*", "47494f50010100000000006a00000001");
+
+# Block forever...
+while (1)
+{
+        sleep(1000);
+}
+
+