r35015 - /trunk/dh-make-perl/lib/Debian/Dependencies.pm

[dmn at users.alioth.debian.org]

Author: dmn
Date: Fri May  8 13:57:00 2009
New Revision: 35015

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=35015
Log:
Dependency::_add: use _add_dependency for the actual additions

this makes _add not add duplicate deps

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=35015&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/Debian/Dependencies.pm (original)
+++ trunk/dh-make-perl/lib/Debian/Dependencies.pm Fri May  8 13:57:00 2009
@@ -113,11 +113,13 @@
     $right = [ $right ] if $right->isa('Debian::Dependency');
 
     if ( defined $mode ) {      # $a + $b
-        return bless [ @$left, @$right ], ref($left);
+        my $result = bless [ @$left ], ref($left);
+        $result->_add_dependency(@$right);
+        return $result;
     }
     else {                      # $a += $b;
-        push @$left, @$right;
-        $left;
+        $left->_add_dependency(@$right);
+        return $left;
     }
 }