--- trunk/run.pl	2008/08/02 15:11:06	1098
+++ trunk/run.pl	2008/08/02 23:46:41	1100
@@ -23,7 +23,6 @@
 use Storable qw/dclone/;
 use Pod::Usage qw/pod2usage/;
 
-use Proc::Queue size => 1;
 use POSIX ":sys_wait_h"; # imports WNOHANG
 
 =head1 NAME
@@ -207,6 +206,8 @@
 my @links;
 
 if ($parallel) {
+	eval 'use Proc::Queue size => 1;';
+	die $@ if $@;
 	$log->info("Using $parallel processes for speedup");
 	Proc::Queue::size($parallel);
 }
@@ -349,7 +350,7 @@
 		$log->info("database $database doesn't have inputs defined");
 	} );
 
-	if ( -e 'out/debug' ) {	# fixme flag?
+	if ( -e 'out/debug' ) {	# FIXME flag?
 		my $out;
 		foreach my $i ( @inputs ) {
 			warn dump( $i );
@@ -399,7 +400,6 @@
 
 		my $input_db = new WebPAC::Input(
 			module => $input_module,
-			encoding => $config->webpac('webpac_encoding'),
 			limit => $limit || $input->{limit},
 			offset => $offset,
 			recode => $input->{recode},
@@ -444,7 +444,7 @@
 
 		my $maxmfn = $input_db->open(
 			path => $input->{path},
-			code_page => $input->{encoding},	# database encoding
+			input_encoding => $input->{encoding},	# database encoding
 			lookup_coderef => $lookup_coderef,
 			lookup => $lookup_jar,
 			%{ $input },