diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-09 02:56:13 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-09 02:56:13 +0000 |
| commit | 6d6ae9622174ffaa5c3fb93887744deb77298e45 (patch) | |
| tree | 4cc26d6daa342362dd3c12e6f44f7f192df9203e | |
| parent | eb27b65e7b1f9fcfa2a45bbae31ea1c1de3e4522 (diff) | |
| download | perl-6d6ae9622174ffaa5c3fb93887744deb77298e45.tar.gz | |
Enable more debugging.
p4raw-id: //depot/perl@12373
| -rw-r--r-- | lib/utf8_heavy.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl index 06b2266b11..ef950c6f39 100644 --- a/lib/utf8_heavy.pl +++ b/lib/utf8_heavy.pl @@ -99,7 +99,7 @@ sub SWASHNEW { while ($x =~ /^([^0-9a-fA-F\n])(.*)/mg) { my $char = $1; my $name = $2; -# print STDERR "$1 => $2\n" if DEBUG; + print STDERR "$1 => $2\n" if DEBUG; if ($char =~ /[-+!]/) { my ($c,$t) = split(/::/, $name, 2); # bogus use of ::, really my $subobj = $c->SWASHNEW($t, "", 0, 0, 0); @@ -147,7 +147,7 @@ sub SWASHGET { my $max = (defined $2 ? hex $2 : $min); my $val = hex $3; next if $max < $start; -# print "$min $max $val\n"; + print "$min $max $val\n" if DEBUG; if ($none) { if ($min < $start) { $val += $start - $min if $val < $none; @@ -155,7 +155,7 @@ sub SWASHGET { } for ($key = $min; $key <= $max; $key++) { last LINE if $key >= $end; -# print STDERR "$key => $val\n" if DEBUG; + print STDERR "$key => $val\n" if DEBUG; vec($swatch, $key - $start, $bits) = $val; ++$val if $val < $none; } @@ -167,7 +167,7 @@ sub SWASHGET { } for ($key = $min; $key <= $max; $key++, $val++) { last LINE if $key >= $end; -# print STDERR "$key => $val\n" if DEBUG; + print STDERR "$key => $val\n" if DEBUG; vec($swatch, $key - $start, $bits) = $val; } } @@ -184,7 +184,7 @@ sub SWASHGET { } for ($key = $min; $key <= $max; $key++) { last LINE if $key >= $end; -# print STDERR "$key => 1\n" if DEBUG; + print STDERR "$key => 1\n" if DEBUG; vec($swatch, $key - $start, 1) = 1; } } |