This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
s/safefree()/Safefree() in a few places
[perl5.git] / locale.c
index c3ce587..87e11d6 100644 (file)
--- a/locale.c
+++ b/locale.c
@@ -3948,7 +3948,7 @@ Perl__mem_collxfrm(pTHX_ const char *input_string,
                                  cur_min_x + COLLXFRM_HDR_LEN))
                     {
                         PL_strxfrm_NUL_replacement = j;
-                        safefree(cur_min_x);
+                        Safefree(cur_min_x);
                         cur_min_x = x;
                     }
                     else {
@@ -4104,7 +4104,7 @@ Perl__mem_collxfrm(pTHX_ const char *input_string,
                                      cur_max_x + COLLXFRM_HDR_LEN))
                         {
                             PL_strxfrm_max_cp = j;
-                            safefree(cur_max_x);
+                            Safefree(cur_max_x);
                             cur_max_x = x;
                         }
                         else {