#!/usr/local/bin/perl use utf8; ## This file is written in UTF-8 use strict; require 'mkpm.pl'; use vars qw(%PROP %SET %SET_ALIAS); $PROP{module_name} = 'JISX0221'; $PROP{version} = do{my @r=(q$Revision: 1.2 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r}; $PROP{author_name} = 'Wakaba'; $PROP{author_mail} = 'w@suika.fam.cx'; $PROP{pod_description} = <), 1995. Obsoleted by JIS X 0221-1:2001. JIS X 0221-1:2001, Japanese Industrial Standard Commitee (JISC ), 2001. JIS version of ISO/IEC 10646-1:2000. Revision of JIS X 0221-1995. ISO/IEC 646:1991, JIS X 0201:1997, JIS X 0208:1997, JIS X 0212-1990, JIS X 0213:2000 are also related. L L EOH ## BASIC JAPANESE $SET{BasicJapanese} = col2list (<