| … | |
… | |
| 227 | for my $path (@ARGV) { |
227 | for my $path (@ARGV) { |
| 228 | $path =~ /([^\/\\]+)\.pod$/ or die "$path: illegal pathname"; |
228 | $path =~ /([^\/\\]+)\.pod$/ or die "$path: illegal pathname"; |
| 229 | my $base = $1; |
229 | my $base = $1; |
| 230 | my $pom = Pod::POM->new->parse_text (do { |
230 | my $pom = Pod::POM->new->parse_text (do { |
| 231 | local $/; |
231 | local $/; |
| 232 | open my $pod, "<:utf8", $path |
232 | open my $pod, "<:perlio", $path |
| 233 | or die "$path: $!"; |
233 | or die "$path: $!"; |
| 234 | <$pod> |
234 | <$pod> |
| 235 | }); |
235 | }); |
| 236 | |
236 | |
| 237 | my $para = as_paragraphs $pom; |
237 | my $para = as_paragraphs $pom; |
