This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
locale.c: Rmv spurious Safefree
[perl5.git] / locale.c
index 1634bab..a86a028 100644 (file)
--- a/locale.c
+++ b/locale.c
@@ -964,7 +964,6 @@ S_emulate_setlocale(const int category,
                 if (category == LC_ALL) {
                     char * individ_locale = Perl_form(aTHX_ "%.*s", (int) (p - s), s);
                     emulate_setlocale(categories[i], individ_locale, i, TRUE);
-                    Safefree(individ_locale);
                 }
             }