This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables: improve a tracing msg
authorKarl Williamson <public@khwilliamson.com>
Fri, 6 Apr 2012 15:32:48 +0000 (09:32 -0600)
committerKarl Williamson <public@khwilliamson.com>
Sat, 2 Jun 2012 14:29:19 +0000 (08:29 -0600)
lib/unicore/mktables

index 58ed846..39891bc 100644 (file)
@@ -3499,7 +3499,7 @@ sub trace { return main::trace(@_); }
         # structured so this is common.
         if ($start > $max) {
 
-            trace "$owner_name_of{$addr} $operation", sprintf("%04X", $start) . '..' . sprintf("%04X", $end) . " ($value) type=$type" if main::DEBUG && $to_trace;
+            trace "$owner_name_of{$addr} $operation", sprintf("%04X..%04X (%s) type=%d; prev max=%04X", $start, $end, $value, $type, $max) if main::DEBUG && $to_trace;
             return if $operation eq '-'; # Deleting a non-existing range is a
                                          # no-op