debugging code only

Author: jkeenan

t/run/locale.t

@@ -593,6 +593,7 @@ SKIP:
     skip "didn't find a suitable non-UTF-8 locale", 1 unless
                                                             @non_utf8_locales;
     my $locale = $non_utf8_locales[0];
+    print STDERR "AAA: \$locale: $locale\n";
 
     fresh_perl_is(<<"EOF", "ok\n", {}, "cmp() handles above Latin1 and NUL in non-UTF8 locale");
 use locale;
@@ -614,6 +615,7 @@ SKIP:
 {
     skip "didn't find a suitable UTF-8 locale", 1 unless $utf8_ref;
     my $locale = $utf8_ref->[0];
+    print STDERR "BBB: \$locale: $locale\n";
 
     fresh_perl_is(<<"EOF", "ok\n", {}, "Handles above Unicode in a UTF8 locale");
 use locale;
@@ -637,6 +639,7 @@ SKIP:
     skip "32-bit ASCII platforms can't physically have extended UTF-8", 1
                                                    if $::IS_ASCII  && ! $is64bit;
     my $locale = $utf8_ref->[0];
+    print STDERR "CCC: \$locale: $locale\n";
 
     fresh_perl_is(<<"EOF", "ok\n", {}, "cmp() handles Perl extended UTF-8");
 use locale;
@@ -687,6 +690,7 @@ SKIP: {   # GH #20054
 
     my @lc_all_locales = find_locales('LC_ALL');
     my $locale = $lc_all_locales[0];
+    print STDERR "DDD: \$locale: $locale\n";
     skip "LC_ALL not enabled on this platform", 1 unless $locale;
     my $fallback = ($^O eq "MSWin32")
                     ? "system default"