r58888 - in /trunk/dh-make-perl: debian/changelog lib/Debian/WNPP/Query.pm
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Sat Jun 5 09:19:48 UTC 2010
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
More information about the Pkg-perl-cvs-commits
mailing list