… | |
… | |
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; |