+Fri Oct 22 23:44:10 2010 Masanori Kobayasi <zap03216@nifty.ne.jp>
+
+ * bin/genindex.pl: use Jcode.pm instead of jcode.pl.
+
Tue Apr 6 00:45:08 2010 Masanori Kobayasi <zap03216@nifty.ne.jp>
* docs/LFS-BOOK/*: Updated to LFS 6.6.
use DB_File;
use lib qw(bin);
use jfadmlib qw(:DEFAULT :LOCKS);
-require 'jcode.pl';
+use Jcode;
+
my $database = shift (@ARGV);
unlink $database;
last if /DRAFT.NOINDEX/i;
s/\s*#.*$//;
next if /^\s*$/;
- &jcode::convert(\$_, 'euc');
+ Jcode::convert(\$_, 'euc');
if (/^(\w+):\s*(.*)$/) {
my ($key, $value) = ($1, $2);
$value =~ s/\s*$//;
+Fri Oct 22 23:46:32 2010 Masanori Kobayasi <zap03216@nifty.ne.jp>
+
+ * bin/latest-docs.pl: use Jcode.pm instead of jcode.pl.
+
Wed Apr 21 00:48:03 2010 Masanori Kobayasi <zap03216@nifty.ne.jp>
* news.m4: _NEW_DOC kernel-docs-2.6/filesystems/fiemap.txt
use DB_File;
use lib ("../bin", "../../bin"); # jfadmlib.pm ¤Î¤¢¤ë¥Ç¥£¥ì¥¯¥È¥ê
use jfadmlib;
-require 'jcode.pl';
+use Jcode;
my $indexfile = '../jfindex.db';
if ((! -r $indexfile) and (-r $ARGV[3])) {
while (<INFO>) {
if (/^CONT: (.+)$/) {
$data = $1;
- jcode::convert(\$data, 'euc');
+ Jcode::convert(\$data, 'euc');
last;
}
}