Parent Directory | Revision Log | Patch
revision 1.3 by wakaba, Sat Oct 5 05:01:24 2002 UTC | revision 1.4 by wakaba, Sat Oct 12 07:27:01 2002 UTC | |
---|---|---|
# | Line 53 sub load_table (@) { | Line 53 sub load_table (@) { |
53 | if ($name =~ /^ucs_to_(.+)$/) { $name = $1 } | if ($name =~ /^ucs_to_(.+)$/) { $name = $1 } |
54 | elsif ($name =~ /^(.+)_to_ucs$/) { $name = $1 } | elsif ($name =~ /^(.+)_to_ucs$/) { $name = $1 } |
55 | unless (${ 'Encode::Table::' . $name . '::VERSION' }) { | unless (${ 'Encode::Table::' . $name . '::VERSION' }) { |
56 | eval qq{require Encode::Table::$name; Encode::Table::$name->import} or warn $@; | eval qq{require Encode::Table::$name; Encode::Table::$name->import; 1} or warn $@; |
57 | } | } |
58 | } | } |
59 | } | } |
|
admin@suikawiki.org | ViewVC Help |
Powered by ViewVC 1.1.24 |