Oops, forgot to take out some debugging print statements

This commit is contained in:
acli 2004-02-23 04:02:06 +00:00
parent 3e140b7053
commit ec6562b7d3

View file

@ -34,11 +34,9 @@ sub find_translation ($) {
my($s) = @_;
my $key = $s;
if ($s =~ /\S/s) {
print STDERR "DEBUG: before: ($key)\n";
$key = TmplTokenizer::string_canon($key);
$key = TmplTokenizer::charset_convert($key, $charset_in, $charset_out);
$key = TmplTokenizer::quote_po($key);
print STDERR "DEBUG: after: ($key)\n";
}
return defined $href->{$key}
&& !$href->{$key}->fuzzy