--- trunk/t/6-unit.t 2008/08/02 15:15:04 1099 +++ trunk/t/6-unit.t 2008/08/02 23:46:41 1100 @@ -39,14 +39,13 @@ ok(my $isis = new WebPAC::Input( module => 'WebPAC::Input::ISIS', - code_page => 'ISO-8859-2', # application encoding limit => 100, no_progress_bar => 1, ), "new Input::ISIS"); ok(my $maxmfn = $isis->open( path => $isis_file, - code_page => 'cp852', # database encoding + input_encoding => 'cp852', # database encoding lookup_coderef => sub { my $rec = shift || return; ok($rec, 'lookup_coderef has rec');