lib/locale.t: Better debug output

This output an array that was hopefully sorted, but the function it
calls sorts things itself, so the array looked sorted even if it
weren't.

1 files changed, 5 insertions, 1 deletions

diff --git a/lib/locale.t b/lib/locale.t
index df6f816867..85fb157107 100644
--- a/lib/locale.t
+++ b/lib/locale.t
@@ -1745,7 +1745,11 @@ foreach my $Locale (@Locale) {
         use locale;
 
         my @sorted_controls = sort @{$posixes{'cntrl'}};
-        debug "sorted :cntrl: = ", disp_chars(@sorted_controls), "\n";
+        my $output = "";
+        for my $control (@sorted_controls) {
+            $output .= " " . disp_chars($control);
+        }
+        debug "sorted :cntrl: = $output\n";
 
         ++$locales_test_number;
         $test_names{$locales_test_number}