diff options
author | Karl Williamson <khw@cpan.org> | 2019-08-06 21:29:22 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2019-08-06 21:33:00 -0600 |
commit | 21dce8f4eb9136875a886371016aa25788f5144f (patch) | |
tree | cff4c7352bb6875219a80f28175b034a6ba0e428 /locale.c | |
parent | 625e8b0bffed3334db9b3897f8713d570fd5385c (diff) | |
download | perl-21dce8f4eb9136875a886371016aa25788f5144f.tar.gz |
locale.c: Stop Coverity warning
Coverity is right, so re-order these clauses. This code is executed
only if some very strange error occurs.
Diffstat (limited to 'locale.c')
-rw-r--r-- | locale.c | 11 |
1 files changed, 6 insertions, 5 deletions
@@ -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; } |