locale.t: Add extra debugging info
authorKarl Williamson <public@khwilliamson.com>
Mon, 31 Dec 2012 03:23:07 +0000 (20:23 -0700)
committerKarl Williamson <public@khwilliamson.com>
Mon, 31 Dec 2012 18:03:27 +0000 (11:03 -0700)
The tryneoalpha() routine is given an extra parameter to print when
debugging is enabled.

lib/locale.t

index b9e7c22..800824f 100644 (file)
@@ -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;
     }