From d9aa4013885b1910c2ee50bc3a434785bcf91cbb Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Wed, 18 Jan 2012 11:18:57 -0700 Subject: [PATCH] locale.t: remove unused debug stuff --- lib/locale.t | 7 ------- 1 file changed, 7 deletions(-) diff --git a/lib/locale.t b/lib/locale.t index b8436bf..29ce2bb 100644 --- a/lib/locale.t +++ b/lib/locale.t @@ -1011,7 +1011,6 @@ setlocale(LC_ALL, "C"); # position in its list as a marker to indicate that it, unlike the # other code points above ASCII, has a successful case change if ($function =~ /^u/) { - #@list = ("\xff", "\x{fb00}", "\x{149}", "\x{101}"); @list = ("", "a", "\xe0", "\xff", "\x{fb00}", "\x{149}", "\x{101}"); $ascii_case_change_delta = -32; $above_latin1_case_change_delta = -1; @@ -1021,13 +1020,9 @@ setlocale(LC_ALL, "C"); $ascii_case_change_delta = +32; $above_latin1_case_change_delta = +1; } - $|=1; foreach my $j (0 .. $#list) { my $char = $list[$j]; - #print STDERR __LINE__, ": $char\n"; - #check_taint_not($i++, $char); utf8::upgrade($char); - #check_taint_not($i++, $char); my $should_be = ($j == $#list) ? chr(ord($char) + $above_latin1_case_change_delta) : (length $char == 0 || ord($char) > 127) @@ -1049,7 +1044,6 @@ setlocale(LC_ALL, "C"); # Tainting shouldn't happen for empty strings, or those characters # above 255. - #print STDERR __LINE__, ": $char\n"; (length($char) > 0 && ord($char) < 256) ? check_taint($changed) : check_taint_not($changed); @@ -1057,7 +1051,6 @@ setlocale(LC_ALL, "C"); } } - print "1..$test_num\n"; # eof -- 2.7.4