| … | |
… | |
| 120 | require File::Path; |
120 | require File::Path; |
| 121 | |
121 | |
| 122 | File::Path::mkpath (File::Basename::dirname ($mappath)); |
122 | File::Path::mkpath (File::Basename::dirname ($mappath)); |
| 123 | open my $fh, ">:raw:perlio", "$mappath.meta" |
123 | open my $fh, ">:raw:perlio", "$mappath.meta" |
| 124 | or die "$mappath.meta: $!\n"; |
124 | or die "$mappath.meta: $!\n"; |
| 125 | print $fh CFPlus::to_json $meta; |
125 | print $fh CFPlus::encode_json $meta; |
| 126 | close $fh; |
126 | close $fh; |
| 127 | open my $fh, ">:raw:perlio:utf8", $mappath |
127 | open my $fh, ">:raw:perlio:utf8", $mappath |
| 128 | or die "$mappath: $!\n"; |
128 | or die "$mappath: $!\n"; |
| 129 | print $fh $map; |
129 | print $fh $map; |
| 130 | close $fh; |
130 | close $fh; |
