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

perl: Free array on error path to avoid leak (RHBZ#1536765).

Browse Source
This commit is contained in:
Richard W.M. Jones
2018-01-22 17:04:28 +00:00
parent a30b51747f
commit e04aa823d1
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
generator/perl.ml
View File

@@ -122,8 +122,10 @@ XS_unpack_charPtrPtr (SV *arg) {
for (i = 0; i <= av_len (av); i++) {
SV **elem = av_fetch (av, i, 0);
if (!elem || !*elem)
if (!elem || !*elem) {
free (ret);
croak (\"missing element in list\");
}
ret[i] = SvPV_nolen (*elem);
}