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