From f1902d2eb20567174c618f49d673cf81029a556a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=D0=94=D0=B8=D0=BB=D1=8F=D0=BD=20=D0=9F=D0=B0=D0=BB=D0=B0?=
 =?UTF-8?q?=D1=83=D0=B7=D0=BE=D0=B2?= <git-dpa@aegee.org>
Date: Sat, 13 Jan 2024 12:35:51 +0100
Subject: [PATCH] t/re/charset: spell the locale when setlocale() fails

Closes https://github.com/Perl/perl5/issues/21805
---
 t/re/charset.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/re/charset.t b/t/re/charset.t
index c95c276bd4e9..0ad498557ca7 100644
--- 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 {