This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
f033d3c
)
mktables: improve a tracing msg
author
Karl Williamson
<public@khwilliamson.com>
Fri, 6 Apr 2012 15:32:48 +0000
(09:32 -0600)
committer
Karl Williamson
<public@khwilliamson.com>
Sat, 2 Jun 2012 14:29:19 +0000
(08:29 -0600)
lib/unicore/mktables
patch
|
blob
|
blame
|
history
diff --git
a/lib/unicore/mktables
b/lib/unicore/mktables
index
58ed846
..
39891bc
100644
(file)
--- 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