X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=tuntap%2Ftuntap.c;h=60a8cdcdeae0f8261da14e0e509063cd0d8101ff;hb=01601728a492b537c49fae629b5688d74650c4fb;hp=9deec5745a6cea82b4ae479d51dfa55bf6068f37;hpb=a079a543a386bd6946e48a628d2f768b3057dcc0;p=chiark-tcl.git

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;
 }