--- file_not_specified_in_diff	
+++ file_not_specified_in_diff	
@@ -267,2 +267,1 @@ 
-	@files = grep { 
-	    (split ' ')[1] =~ /^($confprotre)/o 
---
+	@files = grep { (split ' ', $_, 2)[1] =~ /^($confprotre)/o 
@@ -277,1 +276,1 @@ 
-	    (split ' ', $_)[1] =~ m/\/(?:doc|man|info)\//o 
---
+	    (split ' ', $_, 2)[1] =~ m/\/(?:doc|man|info)\//o 
@@ -289,11 +288,3 @@ 
-	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;