Re: wnpp report bug: [Was: Work-needing packages report for Mar 28, 2003]

[Martin Michlmayr <tbm@cyrius.com>]

* Goswin Brederlow <goswin.brederlow@student.uni-tuebingen.de> [2003-03-28 15:17]:
> >    videogen (#158160), orphaned 328 days ago
> >      Description: Create arbitrary-res modelines using hardware
> >      parameters
> > 
> >    videogen (#158160), orphaned 328 days ago
> >      Description: Create arbitrary-res modelines using hardware
> >      parameters
> 
> Why is that entry there twice?

Because the script does not take into account that duplicate bugs can
exist in WNPP.

Marcelo, please apply the patch below.


--- maintainers-needed.pl~	Tue Apr  8 08:03:49 2003
+++ maintainers-needed.pl	Tue Apr  8 08:05:59 2003
@@ -48,16 +48,18 @@
     $subject =~ s/\s+-+\s+(.*)$//;
     $desc = $1;
     if ($subject =~ /^(?:wnpp:?\s*)?(?:RFA|ITO):\s*((?:[a-z0-9][-a-z0-9+.]+(?:,?\s+)?)+)/io) {
-        foreach (split /,?\s+/, $1) {
-            $pkginfo{$_} = {
+        foreach $package (split /,?\s+/, $1) {
+            next if (grep { $_ eq $package } @rfa);
+            $pkginfo{$package} = {
                 id => $bugid, age => $age, desc => $desc, revdeps => {} };
-            push @rfa, $_;
+            push @rfa, $package;
         }
     } elsif ($subject =~ /^O:\s*((?:[a-z0-9][-a-z0-9+.]+(?:,?\s+)?)+)/io) {
-        foreach (split /,?\s+/, $1) {
-            $pkginfo{$_} = {
+        foreach $package (split /,?\s+/, $1) {
+            next if (grep { $_ eq $package } @orphaned);
+            $pkginfo{$package} = {
                 id => $bugid, age => $age, desc => $desc, revdeps => {} };
-            push @orphaned, $_;
+            push @orphaned, $package;
         }
     }
 }

-- 
Martin Michlmayr
tbm@cyrius.com