--- trunk/run.pl	2006/05/18 13:48:51	519
+++ trunk/run.pl	2006/05/18 13:48:58	520
@@ -202,7 +202,7 @@
 
 		my $lookup = new WebPAC::Lookup(
 			lookup_file => $input->{lookup},
-		);
+		) if ($input->{lookup});
 
 		my $input_module = $config->{webpac}->{inputs}->{$type};
 
@@ -227,7 +227,7 @@
 		my $n = new WebPAC::Normalize::XML(
 		#	filter => { 'foo' => sub { shift } },
 			db => $db,
-			lookup_regex => $lookup->regex,
+			lookup_regex => $lookup ? $lookup->regex : undef,
 			lookup => $lookup,
 			prefix => $input->{name},
 		);
@@ -288,7 +288,7 @@
 				$ds = WebPAC::Normalize::Set::data_structure(
 					row => $row,
 					rules => $rules,
-					lookup => $lookup->lookup_hash,
+					lookup => $lookup ? $lookup->lookup_hash : undef,
 				);
 
 				$db->save_ds(