r17222 - in /trunk/dh-make-perl: debian/changelog dh-make-perl

[dmn at users.alioth.debian.org]

Author: dmn
Date: Wed Mar 12 08:34:11 2008
New Revision: 17222

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=17222
Log:
* dh-make-perl: when storing versioned dependencies, remove any leading 'v'

Modified:
    trunk/dh-make-perl/debian/changelog
    trunk/dh-make-perl/dh-make-perl

Modified: trunk/dh-make-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/debian/changelog?rev=17222&op=diff
==============================================================================
--- trunk/dh-make-perl/debian/changelog (original)
+++ trunk/dh-make-perl/debian/changelog Wed Mar 12 08:34:11 2008
@@ -18,6 +18,7 @@
 
   [ Damyan Ivanov ]
   * rules.* templates: add "install" to phony targets list
+  * dh-make-perl: when storing versioned dependencies, remove any leading 'v'
 
  -- gregor herrmann <gregor+debian at comodo.priv.at>  Sun, 09 Mar 2008 22:00:23 +0100
 

Modified: trunk/dh-make-perl/dh-make-perl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/dh-make-perl?rev=17222&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Wed Mar 12 08:34:11 2008
@@ -762,8 +762,10 @@
 		    if ($f =~ /$re/ && ! 
 			grep { $_ eq $p } @deps, split(/,/, at stdmodules)) {
 			if (exists $dep_hash{$mod}) {
+                            my $v = $dep_hash{$mod};
+                            $v =~ s/^v//;   # strip leading 'v' from version
 			    push @deps, {name=>$p, 
-					 version=>$dep_hash{$mod}};
+					 version=>$v};
 			} else {
 			    push @deps, {name => $p};
 			}