From c90e6e4f6d8ed9254a10b988af263e10381055ce Mon Sep 17 00:00:00 2001
From: Shiqing Fan <shiqing@hlrs.de>
Date: Mon, 8 Sep 2008 14:35:47 +0000
Subject: [PATCH] - The correct function to close a socket. Thanks to George
 for noticing it.

This commit was SVN r19513.
---
 orte/runtime/orte_wait.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/orte/runtime/orte_wait.c b/orte/runtime/orte_wait.c
index 030cca681f..e44ab38e41 100644
--- a/orte/runtime/orte_wait.c
+++ b/orte/runtime/orte_wait.c
@@ -857,7 +857,7 @@ void orte_trigger_event(orte_trigger_event_t *trig)
     }
         
     send(trig->channel, (const char *) &data, sizeof(int), 0);
-	CloseHandle((HANDLE)trig->channel);
+	closesocket(trig->channel);
     opal_progress();
 }