We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 625e8b0 commit 21dce8fCopy full SHA for 21dce8f
locale.c
@@ -4349,11 +4349,6 @@ Perl__mem_collxfrm(pTHX_ const char *input_string,
4349
return xbuf;
4350
4351
bad:
4352
- Safefree(xbuf);
4353
- if (s != input_string) {
4354
- Safefree(s);
4355
- }
4356
- *xlen = 0;
4357
4358
# ifdef DEBUGGING
4359
@@ -4363,6 +4358,12 @@ Perl__mem_collxfrm(pTHX_ const char *input_string,
4363
4364
# endif
4365
4360
4361
+ Safefree(xbuf);
4362
+ if (s != input_string) {
+ Safefree(s);
+ }
+ *xlen = 0;
4366
+
4367
return NULL;
4368
}
4369
0 commit comments