Pod::Html and Pod::Text were not locale-savvy:

for example in =head1 all non-ASCII-\w-runs were
turned into underscores in NAME tags.  This could
result in several NAME tags becoming identical.
Reported by:
Subject: pod2html vs Russian Characters
To: Tom.Christiansen@snn.aha.ru, tchrist@perl.com
Message-Id: <199811241600.TAA05149@stat.aha.ru>

p4raw-id: //depot/cfgperl@2435

diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm
index 3994f5d..49cadc1 100644 (file)
--- a/lib/Pod/Html.pm
+++ b/lib/Pod/Html.pm
@@ -11,6 +11,8 @@ use Cwd;
 
 use Carp;
 
+use locale;    # make \w work right in non-ASCII lands
+
 use strict;
 
 use Config;
@@ -1551,6 +1553,7 @@ sub finish_list {
 #
 sub htmlify {
     my($compact, $heading) = @_;
+    my($compact, $heading) = @_;
 
     if ($compact) {
       $heading =~ /^(\w+)/;

diff --git a/lib/Pod/Text.pm b/lib/Pod/Text.pm
index 67993db..f45c0ea 100644 (file)
--- a/lib/Pod/Text.pm
+++ b/lib/Pod/Text.pm
@@ -52,6 +52,8 @@ require Exporter;
 use vars qw($VERSION);
 $VERSION = "1.0203";
 
+use locale;    # make \w work right in non-ASCII lands
+
 $termcap=0;
 
 $opt_alt_format = 0;