diff options
| author | Fyodor Krasnov <fyodor@aha.ru> | 1998-11-24 22:00:36 +0300 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1998-12-02 16:32:33 +0000 |
| commit | 3ec0728814aeaba716081748626d6940892a1796 (patch) | |
| tree | 635e5e209021024b984f1609d5e83793625bf69d /lib/Pod | |
| parent | 9487f8441dc06e506c1ad489cf37735d159b9777 (diff) | |
| download | perl-3ec0728814aeaba716081748626d6940892a1796.tar.gz | |
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
Diffstat (limited to 'lib/Pod')
| -rw-r--r-- | lib/Pod/Html.pm | 3 | ||||
| -rw-r--r-- | lib/Pod/Text.pm | 2 |
2 files changed, 5 insertions, 0 deletions
diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm index 3994f5dc80..49cadc1f6b 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 67993db3f5..f45c0ea7c9 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; |