6 # % diff -u <(awk '/^[^#]/{print $1}' dist/script/pkgs.list | sort) \
7 # <(admin/chkpkgs.perl|sort)
12 $epath = `dirname $0`; chomp $epath;
13 my $lpath = "$epath/../bin";
14 unshift (@INC, $lpath);
16 use JMtl ('line2hash');
18 open TLL, "find $epath/../manual -name translation_list |";
23 if (/\/([^\/]*)\/translation_list/){
32 if ($ti{'stat'} !~ m/^1st/) {