r58888 - in /trunk/dh-make-perl: debian/changelog lib/Debian/WNPP/Query.pm

[ansgar-guest at users.alioth.debian.org]

Author: ansgar-guest
Date: Sat Jun  5 09:18:36 2010
New Revision: 58888

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=58888
Log:
Debian::WNPP::Query: Fix bugs_for_package method.

Modified:
    trunk/dh-make-perl/debian/changelog
    trunk/dh-make-perl/lib/Debian/WNPP/Query.pm

Modified: trunk/dh-make-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/debian/changelog?rev=58888&op=diff
==============================================================================
--- trunk/dh-make-perl/debian/changelog (original)
+++ trunk/dh-make-perl/debian/changelog Sat Jun  5 09:18:36 2010
@@ -12,6 +12,7 @@
   * DhMakePerl::Command::Packaging (set_package_name): Use package name
     specified by --packagename option. (Closes: #584619)
   * dh-make-perl: Fix spelling error ("intercepring" → "intercepting").
+  * Debian::WNPP::Query: Fix bugs_for_package method.
 
   [ Salvatore Bonaccorso ]
   * Add support of Breaks field for binary package stanzas in debian/control

Modified: trunk/dh-make-perl/lib/Debian/WNPP/Query.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/Debian/WNPP/Query.pm?rev=58888&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/Debian/WNPP/Query.pm (original)
+++ trunk/dh-make-perl/lib/Debian/WNPP/Query.pm Sat Jun  5 09:18:36 2010
@@ -175,14 +175,10 @@
 sub bugs_for_package {
     my ( $self, $package ) = @_;
 
-    my @result;
-    for ( keys %list_url ) {
-        if ( my $bug = $self->_cache->{$_}{$package} ) {
-            push @result, $bug;
-        }
+    if (exists $self->_cache->{ $package }) {
+        return @{ $self->_cache->{ $package } };
     }
-
-    return @result;
+    return ();
 }
 
 =back