Perl bindings fix: Not enough memory was allocated for array params.

[libguestfs.git] / src / generator.ml

diff --git a/src/generator.ml b/src/generator.ml
index f7057d0..7f24802 100755 (executable)
--- a/src/generator.ml
+++ b/src/generator.ml
@@ -4862,7 +4862,7 @@ XS_unpack_charPtrPtr (SV *arg) {
     croak (\"array reference expected\");
 
   av = (AV *)SvRV (arg);
     croak (\"array reference expected\");
 
   av = (AV *)SvRV (arg);

-  ret = malloc (av_len (av) + 1 + 1);
+  ret = malloc ((av_len (av) + 1 + 1) * sizeof (char *));

   if (!ret)
     croak (\"malloc failed\");
 
   if (!ret)
     croak (\"malloc failed\");