r27306 - /trunk/dh-make-perl/dh-make-perl

[dmn at users.alioth.debian.org]

Author: dmn
Date: Wed Nov 26 13:04:42 2008
New Revision: 27306

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27306
Log:
Dep::parse_list:: refuse any version relationship other than '>='

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=27306&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Wed Nov 26 13:04:42 2008
@@ -283,7 +283,10 @@
 
     for( @list ) {
         if ( /(^S+)\s(.+)$/ ) {
-            $_ = $class->new( $1, $2 );
+            my ( $pkg, $ver ) = ( $1, $2 );
+            $ver =~ s/^>=\s*//
+                or die "$_: only '>=' relationships are supported";
+            $_ = $class->new( $pkg, $ver );
         }
         else {
             $_ = $class->new($_);