From 123f9c3fe299d65938e12f55ab08773af2bf2484 Mon Sep 17 00:00:00 2001
From: ian <ian>
Date: Sun, 19 Dec 2004 23:55:43 +0000
Subject: [PATCH] do not crash on disposal of sock and tuntap

---
 dgram/dgram.c   | 2 +-
 tuntap/tuntap.c | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/dgram/dgram.c b/dgram/dgram.c
index 63d3b29..31264f3 100644
--- a/dgram/dgram.c
+++ b/dgram/dgram.c
@@ -163,8 +163,8 @@ static void destroy_idtabcb(Tcl_Interp *ip, void *sock_v) {
 }
 
 int do_dgram_socket_close(ClientData cd, Tcl_Interp *ip, void *sock_v) {
-  destroy(sock_v);
   tabledataid_disposing(ip,sock_v,&dgram_socks);
+  destroy(sock_v);
   return TCL_OK;
 }
 
diff --git a/tuntap/tuntap.c b/tuntap/tuntap.c
index 9deec57..60a8cdc 100644
--- a/tuntap/tuntap.c
+++ b/tuntap/tuntap.c
@@ -153,8 +153,8 @@ static void destroy_idtabcb(Tcl_Interp *ip, void *sock_v) {
 }
 
 int do_tuntap_socket_raw_close(ClientData cd, Tcl_Interp *ip, void *sock) {
-  destroy(sock);
   tabledataid_disposing(ip,sock,&tuntap_socks);
+  destroy(sock);
   return TCL_OK;
 }
 
-- 
2.30.2