XXX temp: lib/locale.t: debug

Author: khwilliamson

lib/locale.t

@@ -131,6 +131,10 @@ use I18N::Langinfo 'langinfo', @langinfo;
 
 # =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';
+}
 
 # Certain tests have been shown to be problematical for a few locales.  Don't
 # fail them unless at least this percentage of the tested locales fail.
@@ -204,14 +208,17 @@ sub ok {
     print "ok " . ++$test_num;
     print " $message";
     print "\n";
+    debug __FILE__ . ": ", __LINE__ . ": ok=$result $test_num $message" if $debug;
     return ($result) ? 1 : 0;
 }
 
 sub skip {
+    debug __FILE__ . ": ", __LINE__ . ": skip $_[0]" if $debug;
     return ok 1, "skipped: " . shift;
 }
 
 sub fail {
+    debug __FILE__ . ": ", __LINE__ . ": fail $_[0]" if $debug;
     return ok 0, shift;
 }