fix GT-K in %er_aliases.

[chise/perl.git] / sample2.pl

diff --git a/sample2.pl b/sample2.pl
index 7c9833c..1c18f5f 100644 (file)
--- a/sample2.pl
+++ b/sample2.pl
@@ -1,8 +1,9 @@
-# compareのsample
+# sample2.pl (compareのsample)
+# $Id: sample2.pl,v 1.3 2003-10-08 13:30:29 moro Exp $
 use CHISE;
 
 my $s1 = CHISE->define_char(strokes => 12, radical => 9);
-my $s2 = CHISE->define_char(strokes => 12, radical => 9, ideograph_daikanwa => 694);
+my $s2 = CHISE->define_char(strokes => 12, radical => 9, daikanwa => 694);
 my $c = $s1->compare($s2);
 
 if ($c == $CHISE::EXCLUSIVE) {