Mercurial > pub > Impl

comparison _doc/make.pl @ 181:47dac58691ee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
New templating system, small fixes
author sourcer
date Thu, 26 Jan 2012 01:15:57 +0400
parents 6ce1f052b90a
children 4d0e1962161c
comparison
equal deleted inserted replaced
180:d1676be8afcc 181:47dac58691ee
27 foreach my $part (@path[0..$#path-1]) { 27 foreach my $part (@path[0..$#path-1]) {
28 $dir = File::Spec->catdir($dir,$part); 28 $dir = File::Spec->catdir($dir,$part);
29 mkdir $dir unless -d $dir; 29 mkdir $dir unless -d $dir;
30 } 30 }
31 31
32 open my $hPod, "<:encoding(cp1251)", $fname or die "Failed to open $fname for input: $!"; 32 open my $hPod, "<:encoding(utf-8)", $fname or die "Failed to open $fname for input: $!";
33 open my $hOut, ">:encoding(utf-8)", $fnameOut or die "Failed to open $fnameOut for output: $!"; 33 open my $hOut, ">:encoding(utf-8)", $fnameOut or die "Failed to open $fnameOut for output: $!";
34 34
35 my $parser = Pod::POM->new(); 35 my $parser = Pod::POM->new();
36 36
37 my $pom = $parser->parse_file($hPod); 37 my $pom = $parser->parse_file($hPod);