From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 9 Oct 2001 02:56:13 +0000 (+0000)
Subject: Enable more debugging.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6d6ae9622174ffaa5c3fb93887744deb77298e45;p=p5sagit%2Fp5-mst-13.2.git

Enable more debugging.

p4raw-id: //depot/perl@12373
---

diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl
index 06b2266..ef950c6 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;
 		}
 	    }