r16027 - /scripts/qa/DebianQA/BTS.pm
    tincho-guest at users.alioth.debian.org 
    tincho-guest at users.alioth.debian.org
       
    Sat Mar  1 17:27:47 UTC 2008
    
    
  
Author: tincho-guest
Date: Sat Mar  1 17:27:46 2008
New Revision: 16027
URL: http://svn.debian.org/wsvn/?sc=1&rev=16027
Log:
Properly skip stamps in usertags subhash
Modified:
    scripts/qa/DebianQA/BTS.pm
Modified: scripts/qa/DebianQA/BTS.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/BTS.pm?rev=16027&op=diff
==============================================================================
--- scripts/qa/DebianQA/BTS.pm (original)
+++ scripts/qa/DebianQA/BTS.pm Sat Mar  1 17:27:46 2008
@@ -126,6 +126,7 @@
     # Inverted index of usertags
     my %usertags;
     foreach my $user (keys %{$bugs->{usertags} || {}}) {
+        next if($user =~ m#^/#);
         foreach my $tag (keys %{$bugs->{usertags}{$user} || {}}) {
             foreach(@{$bugs->{usertags}{$user}{$tag}}) {
                 $usertags{$_} ||= [];
    
    
More information about the Pkg-perl-cvs-commits
mailing list