lib/locale.t

Perl · May 12, 2023 · 5396671 · 5396671
1 parent e8d4a05
commit 5396671
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/locale.t b/lib/locale.t
@@ -63,8 +63,8 @@ use I18N::Langinfo qw(langinfo CODESET CRNCYSTR RADIXCHAR);
 # =1 adds debugging output; =2 increases the verbosity somewhat
 our $debug = $ENV{PERL_DEBUG_FULL_TEST} // 0;
 if ($^O =~ /cygwin | darwin /xi) {
-    $debug = 1 ;
-    $^D = 0x04000000|0x00100000;# if $^O eq 'cygwin';
+    $debug = 0; # 1 ;
+    $^D = 0x04000000|0x00100000 if $debug;# if $^O eq 'cygwin';
 }
 
 # Certain tests have been shown to be problematical for a few locales.  Don't