267,268c267
< 	@files = grep { 
< 	    (split ' ')[1] =~ /^($confprotre)/o 
---
> 	@files = grep { (split ' ', $_, 2)[1] =~ /^($confprotre)/o 
277c276
< 	    (split ' ', $_)[1] =~ m/\/(?:doc|man|info)\//o 
---
> 	    (split ' ', $_, 2)[1] =~ m/\/(?:doc|man|info)\//o 
289,299c288,290
< 	for (my $i=0; $i < @files; $i++) {
< 	    my ($f1) = $files[$i];
< 	    $f1 = (split ' ', $f1)[1];
< 	    if ($i < @files-1) {
< 		my $f2 = $files[$i+1];
< 		$f2 = (split ' ', $f2)[1];
< 		vverb "Comparing $f1 to $f2";
< 		next if $f2 =~ m#^\Q$f1\E/#;
< 	    }
< 	    print $f1, "\n";
< 	}
---
>     	print grep {
> 	    /^obj / && s/^obj (.*?) \w+ \d+$/$1/ 
> 	    || /^sym / && s/^sym (.*?) \d+$/$1/ } @files;