From e04aa823d132df494023a199b7dbed08b9dfb490 Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Mon, 22 Jan 2018 17:04:28 +0000
Subject: [PATCH] perl: Free array on error path to avoid leak (RHBZ#1536765).

---
 generator/perl.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/generator/perl.ml b/generator/perl.ml
index bd7e328cd..d5bea73ee 100644
--- a/generator/perl.ml
+++ b/generator/perl.ml
@@ -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);
   }