r53029 - /trunk/dh-make-perl/lib/Debian/Dependencies.pm
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Thu Feb 18 19:57:57 UTC 2010
Author: dmn
Date: Thu Feb 18 19:56:40 2010
New Revision: 53029
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=53029
Log:
D::Deps::remove: fix inverse logic and over-keeping
now it works like documented
Modified:
trunk/dh-make-perl/lib/Debian/Dependencies.pm
Modified: trunk/dh-make-perl/lib/Debian/Dependencies.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/Debian/Dependencies.pm?rev=53029&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/Debian/Dependencies.pm (original)
+++ trunk/dh-make-perl/lib/Debian/Dependencies.pm Thu Feb 18 19:56:40 2010
@@ -182,25 +182,27 @@
sub remove {
my( $self, @deps ) = @_;
- my ( @kept, @removed );
+ my @removed;
for my $deps(@deps) {
$deps = Debian::Dependencies->new($deps)
unless ref($deps);
for my $dep(@$deps) {
+ my @kept;
+
for( @$self ) {
- if( $dep->satisfies($_) ) {
+ if( $_->satisfies($dep) ) {
push @removed, $_;
}
else {
push @kept, $_;
}
}
+
+ @$self = @kept;
}
}
-
- @$self = @kept;
return @removed;
}
More information about the Pkg-perl-cvs-commits
mailing list