diff options
| author |   afresh1 <afresh1@openbsd.org> | 2014-03-24 14:58:42 +0000 |
|---|---|---|
| committer | afresh1 <afresh1@openbsd.org> | 2014-03-24 14:58:42 +0000 |
| commit | 91f110e064cd7c194e59e019b83bb7496c1c84d4 (patch) | |
| tree | 3e8e577405dba7e94b43cbf21c22f21aaa5ab949 /gnu/usr.bin/perl/ext/Pod-Html/lib/Pod/Html.pm | |
| parent | do not call purge_task every 10 secs, it is only needed once at startup and (diff) | |
| download | wireguard-openbsd-91f110e064cd7c194e59e019b83bb7496c1c84d4.tar.xz wireguard-openbsd-91f110e064cd7c194e59e019b83bb7496c1c84d4.zip | |
Import perl-5.18.2
OK espie@ sthen@ deraadt@
Diffstat (limited to 'gnu/usr.bin/perl/ext/Pod-Html/lib/Pod/Html.pm')
| -rw-r--r-- | gnu/usr.bin/perl/ext/Pod-Html/lib/Pod/Html.pm | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/gnu/usr.bin/perl/ext/Pod-Html/lib/Pod/Html.pm b/gnu/usr.bin/perl/ext/Pod-Html/lib/Pod/Html.pm index 47b937abbb5..72b37c249dd 100644 --- a/gnu/usr.bin/perl/ext/Pod-Html/lib/Pod/Html.pm +++ b/gnu/usr.bin/perl/ext/Pod-Html/lib/Pod/Html.pm @@ -3,7 +3,7 @@ use strict; require Exporter; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); -$VERSION = 1.15_02; +$VERSION = 1.18; @ISA = qw(Exporter); @EXPORT = qw(pod2html htmlify); @EXPORT_OK = qw(anchorify); @@ -16,8 +16,11 @@ use File::Spec; use File::Spec::Unix; use Getopt::Long; use Pod::Simple::Search; - -use locale; # make \w work right in non-ASCII lands +BEGIN { + if($Config{d_setlocale}) { + require locale; import locale; # make \w work right in non-ASCII lands + } +} =head1 NAME @@ -432,6 +435,7 @@ HTMLFOOT } else { open $fhout, ">-"; } + binmode $fhout, ":utf8"; print $fhout $output; close $fhout or die "Failed to close $Htmlfile: $!"; chmod 0644, $Htmlfile unless $Htmlfile eq '-'; @@ -695,6 +699,7 @@ sub _unixify { $full_path = File::Spec::Unix->catfile(File::Spec::Unix->catdir(@dirs), $file); $full_path =~ s|^\/|| if $^O eq 'MSWin32'; # C:/foo works, /C:/foo doesn't + $full_path =~ s/\^\././g if $^O eq 'VMS'; # unescape dots return $full_path; } |