diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-04-06 09:32:48 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-06-02 08:29:19 -0600 |
| commit | 52d4d76abe587f0780597a193d0792bc840bef24 (patch) | |
| tree | 0cee0e3e0c6e700ae50ba3f8afad4fa410ab5555 /lib | |
| parent | f033d3cd103489a9d69b7b303c85d81dd7a622a0 (diff) | |
| download | perl-52d4d76abe587f0780597a193d0792bc840bef24.tar.gz | |
mktables: improve a tracing msg
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/unicore/mktables | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index 58ed846717..39891bcb9e 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -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 |