From 1ad5bcbf2a889f906307daaa88753f38c8bd5903 Mon Sep 17 00:00:00 2001
From: Christian Grothoff <christian@grothoff.org>
Date: Mon, 23 Jan 2012 23:00:58 +0000
Subject: [PATCH] -fixing #2100

---
 src/vpn/gnunet-service-vpn.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/vpn/gnunet-service-vpn.c b/src/vpn/gnunet-service-vpn.c
index 1a3c6035f..f935a895b 100644
--- a/src/vpn/gnunet-service-vpn.c
+++ b/src/vpn/gnunet-service-vpn.c
@@ -527,6 +527,7 @@ free_tunnel_state (struct TunnelState *ts)
   GNUNET_assert (NULL == ts->destination.heap_node);
   if (NULL != (tunnel = ts->tunnel))
   {
+    fprintf (stderr, "Destroying tunnel %p\n", tunnel);
     ts->tunnel = NULL;
     GNUNET_MESH_tunnel_destroy (tunnel);
   }
@@ -725,6 +726,7 @@ send_to_tunnel (struct TunnelMessageQueueEntry *tnq,
     GNUNET_CONTAINER_DLL_remove (ts->tmq_head,
 				 ts->tmq_tail,
 				 dq);
+    ts->tmq_length--;
     GNUNET_MESH_notify_transmit_ready_cancel (ts->th);
     ts->th = NULL;
     GNUNET_STATISTICS_update (stats,
@@ -781,6 +783,7 @@ create_tunnel_to_destination (struct DestinationEntry *de,
 					  &tunnel_peer_connect_handler,
 					  &tunnel_peer_disconnect_handler,
 					  ts);
+  fprintf (stderr, "Created tunnel %p\n", ts->tunnel);
   if (NULL == ts->tunnel)
   {
     GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
-- 
2.25.1