From 623b3b9ae433d98dd920f96d06065ee035a4ae9c Mon Sep 17 00:00:00 2001
From: david <david@e0a8ed71-7df4-0310-8962-fdc924857419>
Date: Fri, 16 Aug 2013 08:03:14 +0000
Subject: [PATCH] Close some sockets that ncat-test.pl open itself.

I was getting intermittent "address already in use" errors.
---
 ncat/test/ncat-test.pl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/ncat/test/ncat-test.pl b/ncat/test/ncat-test.pl
index a5f15ee8d..834023bce 100755
--- a/ncat/test/ncat-test.pl
+++ b/ncat/test/ncat-test.pl
@@ -1485,6 +1485,7 @@ sub {
 	accept(S, SOCK) or die;
 	my ($port, $addr) = sockaddr_in(getpeername(S));
 	$port == 1234 or die "Client connected to proxy with source port $port, not 1234";
+	close(S);
 };
 kill_children;
 
@@ -1505,6 +1506,7 @@ sub {
 	accept(S, SOCK) or die;
 	my ($port, $addr) = sockaddr_in(getpeername(S));
 	$port == 1234 or die "Client connected to proxy with source port $port, not 1234";
+	close(S);
 };
 kill_children;
 
@@ -1525,6 +1527,7 @@ sub {
 	accept(S, SOCK) or die;
 	my ($port, $addr) = sockaddr_in(getpeername(S));
 	$port == 1234 or die "Client connected to proxy with source port $port, not 1234";
+	close(S);
 };
 kill_children;