t/re/charset: spell the locale when setlocale() fails

Closes Perl#21805
tonycoz · Jan 13, 2024 · f1902d2 · f1902d2
1 parent 679f9b8
commit f1902d2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/t/re/charset.t b/t/re/charset.t
@@ -163,7 +163,7 @@ foreach my $charset (@charsets) {
                                             ? "C"
                                             : $utf8_locale
                            );
-        die "Couldn't change locale" unless $locale;
+        die "Couldn't change to locale " . (($charset eq 'l') ? "C" : $utf8_locale) unless $locale;
         $charset_display = $charset_mod . " ($locale)";
     }
     else {