[PATCH 1/6] avoid leaking array returned by backtrace_symbols()

[Eric Wong <e@80x24.org>]

Oops :x  Fortunately, most allocations are tracked to a Perl
location and the non-Perl code path is infrequently hit.
---
 Mwrap.xs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Mwrap.xs b/Mwrap.xs
index d5336fa..8aeb425 100644
--- a/Mwrap.xs
+++ b/Mwrap.xs
@@ -20,8 +20,8 @@ static SV *location_string(struct src_loc *l)
 		char **s = backtrace_symbols((void *)l->k, 1);
 
 		ret = newSVpvn(s[0], strlen(s[0]));
-	}
-	else {
+		free(s);
+	} else {
 		ret = newSVpvn(l->k, l->capa - 1);
 	}