r56627 - in /trunk/dh-make-perl: Changes lib/Debian/Dependency.pm t/Dependencies.t

[dmn at users.alioth.debian.org]

Author: dmn
Date: Wed Apr 21 12:21:28 2010
New Revision: 56627

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=56627
Log:
Debian::Dependency now survives being given a string with leading spaces

Modified:
    trunk/dh-make-perl/Changes
    trunk/dh-make-perl/lib/Debian/Dependency.pm
    trunk/dh-make-perl/t/Dependencies.t

Modified: trunk/dh-make-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/Changes?rev=56627&op=diff
==============================================================================
--- trunk/dh-make-perl/Changes (original)
+++ trunk/dh-make-perl/Changes Wed Apr 21 12:21:28 2010
@@ -4,3 +4,5 @@
         integration
 
     Add support for version relations in META
+
+    Debian::Dependency now survives being given a string with leading spaces

Modified: trunk/dh-make-perl/lib/Debian/Dependency.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/Debian/Dependency.pm?rev=56627&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/Debian/Dependency.pm (original)
+++ trunk/dh-make-perl/lib/Debian/Dependency.pm Wed Apr 21 12:21:28 2010
@@ -278,6 +278,7 @@
 
     if ($str =~ m{
             ^               # start from the beginning
+            \s*             # stray space
             ([^\(\s]+)      # package name - no paren, no space
             \s*             # oprional space
             (?:             # version is optional

Modified: trunk/dh-make-perl/t/Dependencies.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/t/Dependencies.t?rev=56627&op=diff
==============================================================================
--- trunk/dh-make-perl/t/Dependencies.t (original)
+++ trunk/dh-make-perl/t/Dependencies.t Wed Apr 21 12:21:28 2010
@@ -71,3 +71,4 @@
 $list->remove('foo, bar (>= 2.0)');
 is( "$list", 'bar' );
 
+is( "".Debian::Dependency->new("\nlibapt-pkg-perl"), "libapt-pkg-perl" );