--- trunk/t/6-unit.t 2006/05/13 12:08:05 474 +++ trunk/t/6-unit.t 2006/05/13 13:39:09 479 @@ -26,7 +26,8 @@ diag "abs_path: $abs_path" if ($debug); my $isis_file = "$abs_path../t/winisis/BIBL"; -$isis_file = '/data/hidra/THS/THS'; +#$isis_file = '/data/hidra/THS/THS'; +$isis_file = '/data/isis_data/ffkk/'; diag "isis_file: $isis_file" if ($debug); @@ -88,7 +89,7 @@ { no strict 'subs'; use WebPAC::Normalize::Set; - diag " lookup => ",Dumper($lookup) if ($debug); + diag " lookup => ",Dumper($lookup->lookup_hash) if ($debug); set_lookup( $lookup->lookup_hash ); clean_ds(); eval "$norm_pl";