45 |
if (ref $ENCODER{$charset}) { |
if (ref $ENCODER{$charset}) { |
46 |
return (&{$ENCODER{$charset}} ($charset, $s), 1); |
return (&{$ENCODER{$charset}} ($charset, $s), 1); |
47 |
} |
} |
48 |
($s, -1); |
($s, 0); |
49 |
} |
} |
50 |
|
|
51 |
sub decode ($$) { |
sub decode ($$) { |
53 |
if (ref $DECODER{$charset}) { |
if (ref $DECODER{$charset}) { |
54 |
return (&{$DECODER{$charset}} ($charset, $s), 1); |
return (&{$DECODER{$charset}} ($charset, $s), 1); |
55 |
} |
} |
56 |
($s, -1); |
($s, 0); |
57 |
} |
} |
58 |
|
|
59 |
sub name_normalize ($) { |
sub name_normalize ($) { |