locale.t: Add extra debugging info

The tryneoalpha() routine is given an extra parameter to print when
debugging is enabled.

diff --git a/lib/locale.t b/lib/locale.t
index b9e7c22..800824f 100644 (file)
--- a/lib/locale.t
+++ b/lib/locale.t
@@ -678,10 +678,12 @@ my @Neoalpha;   # Alnums that aren't in the C locale.
 my %test_names;
 
 sub tryneoalpha {
-    my ($Locale, $i, $test) = @_;
+    my ($Locale, $i, $test, $message) = @_;
+    $message //= "";
+    $message = "  ($message)" if $message;
     unless ($test) {
        $Problem{$i}{$Locale} = 1;
-       debug "# failed $i with locale '$Locale'\n";
+       debug "# failed $i with locale '$Locale'$message\n";
     } else {
        push @{$Okay{$i}}, $Locale;
     }