This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Pod::Html and Pod::Text were not locale-savvy:
authorFyodor Krasnov <fyodor@aha.ru>
Tue, 24 Nov 1998 19:00:36 +0000 (22:00 +0300)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 2 Dec 1998 16:32:33 +0000 (16:32 +0000)
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

lib/Pod/Html.pm
lib/Pod/Text.pm

index 3994f5d..49cadc1 100644 (file)
@@ -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+)/;
index 67993db..f45c0ea 100644 (file)
@@ -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;