lintian: r135 - trunk/checks

[djpig@debian.org]

Author: djpig
Date: 2004-04-08 21:11:05 +0200 (Thu, 08 Apr 2004)
New Revision: 135

Modified:
   trunk/checks/menu-format
Log:
Fix some bugs in checking for the menu-command-not-in-package *lart*


Modified: trunk/checks/menu-format
===================================================================
--- trunk/checks/menu-format	2004-04-08 18:36:25 UTC (rev 134)
+++ trunk/checks/menu-format	2004-04-08 19:11:05 UTC (rev 135)
@@ -314,7 +314,7 @@
     my %file_index;
     open(FILE_INDEX,"index") or fail("cannot open index file index: $!");
     while(<FILE_INDEX>) {
-	$file_index{(split /\s*/, $_)[5]} = 1;
+	$file_index{(split /\s+/, $_)[5]} = 1;
     }
     close FILE_INDEX;
     
@@ -334,14 +334,14 @@
 	    if (! defined($com[0]) || $com[0] ne '-c') {
 		print "E: $pkg $type: su-to-root-without--c /usr/lib/menu/$menufile:$linecount\n";
 		print "W: $pkg $type: menu-command-not-in-package /usr/lib/menu/$menufile:$linecount\n"
-		    if ($com[0] && !$file_index{$com[0]});
+		    if ($com[0] && !$file_index{".$com[0]"});
 	    } else {   
 		print "W: $pkg $type: menu-command-not-in-package /usr/lib/menu/$menufile:$linecount\n"
-		    if ($com[1] && !$file_index{$com[1]});
+		    if ($com[1] && !$file_index{".$com[1]"});
 	    }
-	} else { 	
-	    print "W: $pkg $type: menu-command-not-in-package /usr/lib/menu/$menufile:$linecount\n"
-	        if ($com[0] && !$file_index{$com[0]});
+	} else {
+	    print "W: $pkg $type: menu-command-not-in-package /usr/lib/menu/$menufile:$linecount $com[0]\n"
+	        if ($com[0] && !$file_index{".$com[0]"});
 	}
 
     if (exists($vals{'icon'})) {