In perl.git, the branch blead has been updated <https://perl5.git.perl.org/perl.git/commitdiff/21dce8f4eb9136875a886371016aa25788f5144f?hp=625e8b0bffed3334db9b3897f8713d570fd5385c>
- Log ----------------------------------------------------------------- commit 21dce8f4eb9136875a886371016aa25788f5144f Author: Karl Williamson <[email protected]> Date: Tue Aug 6 21:29:22 2019 -0600 locale.c: Stop Coverity warning Coverity is right, so re-order these clauses. This code is executed only if some very strange error occurs. ----------------------------------------------------------------------- Summary of changes: locale.c | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/locale.c b/locale.c index db83d993de..af7af60038 100644 --- a/locale.c +++ b/locale.c @@ -4349,11 +4349,6 @@ Perl__mem_collxfrm(pTHX_ const char *input_string, return xbuf; bad: - Safefree(xbuf); - if (s != input_string) { - Safefree(s); - } - *xlen = 0; # ifdef DEBUGGING @@ -4363,6 +4358,12 @@ Perl__mem_collxfrm(pTHX_ const char *input_string, # endif + Safefree(xbuf); + if (s != input_string) { + Safefree(s); + } + *xlen = 0; + return NULL; } -- Perl5 Master Repository
