/[suikacvs]/markup/html/html5/spec-ja/common.pl
Suika

Diff of /markup/html/html5/spec-ja/common.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.16 by wakaba, Mon Oct 27 05:00:33 2008 UTC revision 1.17 by wakaba, Sat Nov 1 11:58:32 2008 UTC
# Line 56  sub write_data_file ($$) { Line 56  sub write_data_file ($$) {
56    
57    require Data::Dumper;    require Data::Dumper;
58    local $Data::Dumper::Sortkeys = 1;    local $Data::Dumper::Sortkeys = 1;
59      local $Data::Dumper::Useqq = 1;
60      local *Data::Dumper::qquote = sub {
61        my $s = shift;
62        $s =~ s/([\x27\x5C])/sprintf '\x%02X', ord $1/ge;
63        return q<qq'> . $s . q<'>;
64      }; # Data::Dumper::qquote
65      
66    my $had_file = -f $file_name;    my $had_file = -f $file_name;
67    open my $file, '>:encoding(utf8)', $file_name or die "$0: $file_name: $!";    open my $file, '>:encoding(utf8)', $file_name or die "$0: $file_name: $!";
68      print $file "use utf8;\n";
69    print $file Data::Dumper::Dumper ($data);    print $file Data::Dumper::Dumper ($data);
70    close $file;    close $file;
71    unless ($had_file) {    unless ($had_file) {
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24