r27296 - /trunk/dh-make-perl/dh-make-perl
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Wed Nov 26 12:21:57 UTC 2008
Author: dmn
Date: Wed Nov 26 12:21:53 2008
New Revision: 27296
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27296
Log:
add parse_list class-method to Dep
parses a string in the form of "pkg (>= ver), pkg2, pkg3"
and returns a list of corresponding Dep objects
Modified:
trunk/dh-make-perl/dh-make-perl
Modified: trunk/dh-make-perl/dh-make-perl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/dh-make-perl?rev=27296&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Wed Nov 26 12:21:53 2008
@@ -275,6 +275,22 @@
? $self->pkg . ' (>= ' . $self->ver . ')'
: $self->pkg
);
+}
+
+sub parse_list {
+ my $class = shift;
+ my @list = split( /\s*,\s*/, shift );
+
+ for( @list ) {
+ if ( /(^S+)\s(.+)$/ ) {
+ $_ = $class->new( $1, $2 );
+ }
+ else {
+ $_ = $class->new($_);
+ }
+ }
+
+ return @list;
}
1;
More information about the Pkg-perl-cvs-commits
mailing list