/[suikacvs]/www/test/dom/node/prefix/mktests.pl
Suika

Diff of /www/test/dom/node/prefix/mktests.pl

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

revision 1.1 by wakaba, Sat Jun 16 12:36:16 2007 UTC revision 1.2 by wakaba, Mon Jun 18 15:44:07 2007 UTC
# Line 109  for my $type ( Line 109  for my $type (
109    ['.html' => '<!DOCTYPE html><html>'],    ['.html' => '<!DOCTYPE html><html>'],
110    ['.xhtml' => '<html xmlns="http://www.w3.org/1999/xhtml">'],    ['.xhtml' => '<html xmlns="http://www.w3.org/1999/xhtml">'],
111  ) {  ) {
112      my $table = $table;
113    $table =~ s/\.xhtml\b/$type->[0]/g;    $table =~ s/\.xhtml\b/$type->[0]/g;
114    open my $file, '>', "set-prefix-list$type->[0]"    open my $file, '>', "set-prefix-list$type->[0]"
115        or die "$0: set-prefix-list$type->[0]: $!";        or die "$0: set-prefix-list$type->[0]: $!";
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24