summaryrefslogtreecommitdiff
path: root/locale.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2019-08-06 21:29:22 -0600
committerKarl Williamson <khw@cpan.org>2019-08-06 21:33:00 -0600
commit21dce8f4eb9136875a886371016aa25788f5144f (patch)
treecff4c7352bb6875219a80f28175b034a6ba0e428 /locale.c
parent625e8b0bffed3334db9b3897f8713d570fd5385c (diff)
downloadperl-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.c11
1 files 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;
}