svn commit - mysqldoc@docsrva: r5347 - trunk/tools

[mcbrown]

Author: mcbrown
Date: 2007-03-14 15:27:19 +0100 (Wed, 14 Mar 2007)
New Revision: 5347

Log:
Fixing a situation where the ID find will match against ID map metadata



Modified:
   trunk/tools/idfind.pl


Modified: trunk/tools/idfind.pl
===================================================================
--- trunk/tools/idfind.pl	2007-03-14 14:19:07 UTC (rev 5346)
+++ trunk/tools/idfind.pl	2007-03-14 14:27:19 UTC (rev 5347)
Changed blocks: 2, Lines Added: 5, Lines Deleted: 2; 899 bytes

@@ -12,7 +12,7 @@
 use lib qw(./tools ../tools ../../tools);
 use IDMap;
 use Getopt::Long;
-use strict;
+use Data::Dumper;
 
 my ($srcpathopt) = ('');
 my @srcpaths = ('.',

@@ -67,9 +67,12 @@
         print "Can't find $id in current maps (from @srcpaths)\n";        
     }
 
+#    print STDERR "Found @matches\n";
+
     foreach my $match (sort @matches)
     {
-        if (exists($idmap->{$match}->{adds}))
+        next if ($match =~ m/__.*?__/);
+        if (exists($idmap->{$match}->{alts}))
         {
             print "$match is located within
$idmap->{$match}->{prefix}/$idmap->{$match}->{file}\n";
             print "  -> also located within ",join(',
',@{$idmap->{$match}->{adds}}),"\n";