[tpm] perldoc and utf8 not working

[Madison Kelly]

Hi all,

   I've got a POD for a module of mine with Japanese text in it. The POD 
file itself is saved as UTF8 and I used '=encoding utf8' at the top of 
the pod, but the formatting is still broken. When I vim the file or use 
the 'perldoc -t' switch, the Japanese characters render properly.

   Any idea what might be wrong?

   Here is a stripped out version of my POD with normal and '-t' switch 
decoding samples:

--------------
=pod

=encoding utf8

=head1 METHODS

Below are the detailed usage instructions for the methods provided by 
this module.

=head2 get

=head3 Example

   # This time specify to read from the Japanese word strings.
   $an->String->get({key=>"t_0002",variable=>["あ", "い"],language=>"jp"});
   # The same, but in the shorter array-type call:
   $an->String->get("t_0002",["あ", "い"],"jp");
   print "$say_string\n"; # Prints: "テスト、 整理: [い]/[あ]。"

=head3 Details

Foo...

=cut
--------------

And here is how it renders:

--------------
TEST(1)               User Contributed Perl Documentation 
TEST(1)



METHODS
        Below are the detailed usage instructions for the methods 
provided by this module.

    get
        Example

          # This time specify to read from the Japanese word strings.
          $an->String->get({key=>"t_0002",variable=>["X", 
"X"],language=>"jp"});
          # The same, but in the shorter array-type call:
          $an->String->get("t_0002",["X", "X"],"jp");
          print "$say_string\n"; # Prints: "XXXX XX: [X]/[X]X"

        Details

        Foo...



perl v5.10.0                      2009-09-24 
TEST(1)
--------------

But when I use the '-t' switch it renders ok:

--------------
METHODS
     Below are the detailed usage instructions for the methods provided by
     this module.

   get
    Example
       # This time specify to read from the Japanese word strings.
       $an->String->get({key=>"t_0002",variable=>["あ", "い"],language=> 
"jp"});
       # The same, but in the shorter array-type call:
       $an->String->get("t_0002",["あ", "い"],"jp");
       print "$say_string\n"; # Prints: "テスト、 整理: [い]/[あ]。"

    Details
     Foo...
--------------

Madi