diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-01-18 11:18:57 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-01-21 10:02:55 -0700 |
| commit | d9aa4013885b1910c2ee50bc3a434785bcf91cbb (patch) | |
| tree | b64f705ca92be302a2015bc46cc95c0a1357e2fa /lib/locale.t | |
| parent | 9ba22424c6f4c8c245fd5f3626f164f30c092c11 (diff) | |
| download | perl-d9aa4013885b1910c2ee50bc3a434785bcf91cbb.tar.gz | |
locale.t: remove unused debug stuff
Diffstat (limited to 'lib/locale.t')
| -rw-r--r-- | lib/locale.t | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/lib/locale.t b/lib/locale.t index b8436bfa92..29ce2bb436 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 |