locale.c: Rmv useless Perl_form

The text is a string constant, no need for anything more

1 files changed, 1 insertions, 1 deletions

diff --git a/locale.c b/locale.c
index f702ab0068..0e59d0a8e5 100644
--- a/locale.c
+++ b/locale.c
@@ -7029,7 +7029,7 @@ Perl_switch_to_global_locale(pTHX)
 
     locale_t old_locale = uselocale(LC_GLOBAL_LOCALE);
     if (! old_locale) {
-        locale_panic_(Perl_form(aTHX_ "Could not change to global locale"));
+        locale_panic_("Could not change to global locale");
     }
 
     /* Free the per-thread memory */