/[suikacvs]/perl/lib/Encode/Table.pm
Suika

Diff of /perl/lib/Encode/Table.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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  }  }

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

admin@suikawiki.org
ViewVC Help
Powered by ViewVC 1.1.24