r27302 - /trunk/dh-make-perl/dh-make-perl

[dmn at users.alioth.debian.org]

Author: dmn
Date: Wed Nov 26 12:22:43 2008
New Revision: 27302

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27302
Log:
prune_depends: work with 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=27302&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Wed Nov 26 12:22:43 2008
@@ -1098,8 +1098,8 @@
 sub prune_deps(@) {
     my %deps;
     for (@_) {
-        my $p = $_->{name};
-        my $v = exists( $_->{version} ) ? $_->{version} : undef;
+        my $p = $_->pkg;
+        my $v = $_->ver;
         if ( exists $deps{$p} ) {
             my $cur_ver = $deps{$p};
 
@@ -1114,7 +1114,7 @@
 
     }
 
-    return map( { name => $_, version => $deps{$_} }, sort( keys(%deps) ) );
+    return map( Dep->new( $_, $deps{$_} ), sort( keys(%deps) ) );
 }
 
 sub find_debs_for_modules {