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

[dmn at users.alioth.debian.org]

Author: dmn
Date: Wed Apr  7 20:51:59 2010
New Revision: 55640

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=55640
Log:
Dependencies->add now takes a list

now matches the usage in Control::FromCPAN and is similar
to remove()

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=55640&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/Debian/Dependencies.pm (original)
+++ trunk/dh-make-perl/lib/Debian/Dependencies.pm Wed Apr  7 20:51:59 2010
@@ -136,9 +136,11 @@
 
 =over 4
 
-=item add( I<dependency> )
-
-Adds I<dependency> to the list of dependencies. If the new dependency is a subset of or overlaps some of the old dependencies, it is not duplicated.
+=item add( I<dependency>[, ... ] )
+
+Adds I<dependency> (or a list of) to the list of dependencies. If the new
+dependency is a subset of or overlaps some of the old dependencies, it is not
+duplicated.
 
     my $d = Debian::Dependencies('foo, bar (<=4)');
     $d->add('foo (>= 4), bar');
@@ -151,12 +153,14 @@
 =cut
 
 sub add {
-    my( $self, $dep ) = @_;
-
-    $dep = Debian::Dependencies->new($dep)
-        unless ref($dep);
-
-    $self += $dep;
+    my $self = shift;
+
+    while ( defined(my $dep = shift) ) {
+        $dep = Debian::Dependencies->new($dep)
+            unless ref($dep);
+
+        $self += $dep;
+    }
 }
 
 =item remove( I<dependency>, ... )