From: Fyodor Krasnov <fyodor@aha.ru>
Date: Tue, 24 Nov 1998 19:00:36 +0000 (+0300)
Subject: Pod::Html and Pod::Text were not locale-savvy:
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3ec0728814aeaba716081748626d6940892a1796;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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;