run/locale.t: more debug

Perl · May 22, 2023 · 598a143 · 598a143
1 parent 759cc54
commit 598a143
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/t/run/locale.t b/t/run/locale.t
@@ -43,7 +43,7 @@ if (defined $ARGV[0] && $ARGV[0] ne "") {
     }
     $debug = 1;
 }
-$switches = "switches => [ '-DLv' ]" if $debug;
+$switches = "switches => [ '-DULv' ]" if $debug;
 
 # reset the locale environment
 delete local @ENV{'LANGUAGE', 'LANG', (grep /^LC_[A-Z]+$/, keys %ENV)};
@@ -581,7 +581,7 @@ SKIP: {   # GH #20085
 
     local $ENV{LC_CTYPE} = $utf8_locales[0];
     local $ENV{LC_ALL} = undef;
-    fresh_perl_is(<<~'EOF', "ok\n", {}, "check that setlocale overrides startup");
+    fresh_perl_is(<<~'EOF', "ok\n", { eval $switches }, "check that setlocale overrides startup");
         use POSIX;
 
         my $a_acute = "\N{LATIN SMALL LETTER A WITH ACUTE}";
@@ -617,7 +617,7 @@ SKIP: {   # GH #20054
                     ? "system default"
                     : "standard";
     fresh_perl_like("", qr/Falling back to the $fallback locale/,
-                    {}, "check that illegal startup environment falls back");
+                    { eval $switches }, "check that illegal startup environment falls back");
 }
 
 done_testing();