avoid leaking array returned by backtrace_symbols()

Oops :x  Fortunately, most allocations are tracked to a Perl
location and the non-Perl code path is infrequently hit.

1 files 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);
         }