mirrors/libguestfs
1
0
Fork 0
mirror of https://github.com/libguestfs/libguestfs.git synced 2026-03-22 07:03:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Richard Jones
2009-05-11 10:51:21 +01:00
parent d43dac6948
commit 09128ca421
3 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
BUGS
View File

@@ -54,3 +54,4 @@ quite hard to fix cleanly.
[perl] Perl bindings cause a segfault when you call any command which
takes a StringList (eg. $g->command).
[should be fixed now]

2
perl/Guestfs.xs
View File

@@ -68,7 +68,7 @@ XS_unpack_charPtrPtr (SV *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");

2
src/generator.ml
View File

@@ -4862,7 +4862,7 @@ XS_unpack_charPtrPtr (SV *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\");