Commit 5e07809153 for perl
commit 5e07809153b01a42686611a12a800c6a682ffaf1
Author: Tony Cook <tony@develop-help.com>
Date: Thu Oct 8 09:59:05 2026 +1100
unpack: handle clean up of message arrays correctly
Fixes #24913
diff --git a/pp_pack.c b/pp_pack.c
index b201990220..0cfed88386 100644
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -311,7 +311,7 @@ S_utf8_to_bytes(pTHX_ const char **s, const char *end, U8 *buf, SSize_t buf_len,
Perl_av_create_and_push(aTHX_ &msgs, av_shift(this_msgs));
}
- Safefree(this_msgs);
+ SvREFCNT_dec(this_msgs);
}
if (UNLIKELY(needs_swap))
@@ -340,7 +340,7 @@ S_utf8_to_bytes(pTHX_ const char **s, const char *end, U8 *buf, SSize_t buf_len,
}
}
- Safefree(msgs);
+ SvREFCNT_dec(msgs);
}
if (bad) {