Imported Upstream version 3.2.0

[debian/amanda] / perl / amglue / directtcp.swg

diff --git a/perl/amglue/directtcp.swg b/perl/amglue/directtcp.swg
index e8773f669d86a8324075f82d10c761c2503710fa..b6804666c629c16166ecea66afa23e6ede65e16b 100644 (file)
--- 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);