[Aplaws-commit] r296 - tools/trunk/tools/commands

[<ap...@re...>]

Author: apevec
Date: 2005-02-23 08:47:02 +0100 (Wed, 23 Feb 2005)
New Revision: 296

Modified:
   tools/trunk/tools/commands/mkservice
Log:
don't match too much when filtering by applications


Modified: tools/trunk/tools/commands/mkservice
===================================================================
--- tools/trunk/tools/commands/mkservice	2005-02-22 15:52:45 UTC (rev 295)
+++ tools/trunk/tools/commands/mkservice	2005-02-23 07:47:02 UTC (rev 296)
@@ -166,7 +166,8 @@
   my %app_seen;
   while(<SRC>) {
     my $line = $_;
-    my @matches = grep($line =~ $_, @{$apps});
+    my $pat;
+    my @matches = grep {$pat=$_.'-[0-9]'; $line =~ $pat} @{$apps};
     my $times = scalar @matches;
     if ($times > 0) {
       $app_seen{$matches[0]} = 1;