while (!$extension_map{$source_ext} && $source_ext ne $obj)
{
- my $new_source_ext = suffix_rule ($source_ext, $obj);
+ my $new_source_ext = next_in_suffix_chain ($source_ext, $obj);
last if not defined $new_source_ext;
$source_ext = $new_source_ext;
}