X-Git-Url: https://git.gag.com/?a=blobdiff_plain;ds=sidebyside;f=perl%2Famglue%2Fdirecttcp.swg;h=b6804666c629c16166ecea66afa23e6ede65e16b;hb=b116e9366c7b2ea2c2eb53b0a13df4090e176235;hp=e8773f669d86a8324075f82d10c761c2503710fa;hpb=fd48f3e498442f0cbff5f3606c7c403d0566150e;p=debian%2Famanda

diff --git a/perl/amglue/directtcp.swg b/perl/amglue/directtcp.swg
index e8773f6..b680466 100644
--- a/perl/amglue/directtcp.swg
+++ b/perl/amglue/directtcp.swg
@@ -91,7 +91,7 @@
     addrs_av = (AV *)SvRV($input);
     num_addrs = av_len(addrs_av)+1;
 
-    $1 = g_new0(DirectTCPAddr, num_addrs);
+    $1 = g_new0(DirectTCPAddr, num_addrs+1);
 
     for (i = 0; i < num_addrs; i++) {
         SV **svp = av_fetch(addrs_av, i, 0);