This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables: Move debugging line out of loop
[perl5.git] / lib / unicore / mktables
index 98ecec7..5135274 100644 (file)
@@ -596,8 +596,8 @@ our $to_trace = 0;
                                     || $caller_name eq 'trace');
 
         my $output = "";
+        #print STDERR __LINE__, ": ", join ", ", @input, "\n";
         foreach my $string (@input) {
-            #print STDERR __LINE__, ": ", join ", ", @input, "\n";
             if (ref $string eq 'ARRAY' || ref $string eq 'HASH') {
                 $output .= simple_dumper($string);
             }