--- trunk/run.pl 2006/07/05 19:52:45 585 +++ trunk/run.pl 2006/07/07 21:47:13 588 @@ -7,7 +7,7 @@ use lib './lib'; use WebPAC::Common 0.02; -use WebPAC::Lookup; +use WebPAC::Lookup 0.03; use WebPAC::Input 0.07; use WebPAC::Store 0.03; use WebPAC::Normalize 0.11; @@ -221,9 +221,13 @@ die "I know only how to handle input types ", join(",", @supported_inputs), " not '$type'!\n" unless (grep(/$type/, @supported_inputs)); - my $lookup = new WebPAC::Lookup( - lookup_file => $input->{lookup}, - ) if ($input->{lookup}); + my $lookup; + if ($input->{lookup}) { + $lookup = new WebPAC::Lookup( + lookup_file => $input->{lookup}, + ); + delete( $input->{lookup} ); + } my $input_module = $config->{webpac}->{inputs}->{$type};