locale.c: Stop Coverity warning

Coverity is right, so re-order these clauses. This code is executed only if some very strange error occurs.
Perl · Aug 7, 2019 · 21dce8f · 21dce8f
1 parent 625e8b0
commit 21dce8f
Showing 1 changed file with 6 additions and 5 deletions.
diff --git 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;
 }