diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Pod/Perldoc/ToMan.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Pod/Perldoc/ToMan.pm | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/Master/tlpkg/tlperl/lib/Pod/Perldoc/ToMan.pm b/Master/tlpkg/tlperl/lib/Pod/Perldoc/ToMan.pm index 55616e8b899..225a78618d5 100644 --- a/Master/tlpkg/tlperl/lib/Pod/Perldoc/ToMan.pm +++ b/Master/tlpkg/tlperl/lib/Pod/Perldoc/ToMan.pm @@ -5,7 +5,7 @@ use warnings; use parent qw(Pod::Perldoc::BaseTo); use vars qw($VERSION); -$VERSION = '3.17'; +$VERSION = '3.19'; use File::Spec::Functions qw(catfile); use Pod::Man 2.18; @@ -138,7 +138,14 @@ sub _get_podman_switches { my @switches = grep !m/^_/s, keys %$self; - push @switches, 'utf8' => 1; + # There needs to be a cleaner way to handle setting + # the UTF-8 flag, but for now, comment out this + # line because it often does the wrong thing. + # + # See RT #77465 + # + #push @switches, 'utf8' => 1; + $self->debug( "Pod::Man switches are [@switches]\n" ); return @switches; @@ -298,7 +305,7 @@ sub _filter_through_nroff { # Maybe someone set rendering switches as part of the opt_n value # Deal with that here. - my ($render, $switches) = $self->__nroffer() =~ /\A([\/a-zA-Z0-9_-]+)\b(.+)?\z/; + my ($render, $switches) = $self->__nroffer() =~ /\A([\/a-zA-Z0-9_\.-]+)\b(.+)?\z/; $self->die("no nroffer!?") unless $render; my @render_switches = $self->_collect_nroff_switches; |