r27251 - /trunk/dh-make-perl/dh-make-perl

dmn at users.alioth.debian.org dmn at users.alioth.debian.org
Tue Nov 25 08:38:30 UTC 2008


Author: dmn
Date: Tue Nov 25 08:38:28 2008
New Revision: 27251

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27251
Log:
tidy deps changes

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=27251&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Tue Nov 25 08:38:28 2008
@@ -886,31 +886,26 @@
 #   libppi-perl, libppi-perl (>= 3.0), libarm-perl, libalpa-perl, libarm-perl (>= 2)
 # we want a clean list instead:
 #   libalpa-perl, libarm-perl (>= 2), libppi-perl (>= 3.0)
-sub prune_deps(@)
-{
+sub prune_deps(@) {
     my %deps;
-    for (@_)
-    {
+    for (@_) {
         my $p = $_->{name};
         my $v = exists( $_->{version} ) ? $_->{version} : undef;
-        if( exists $deps{$p} )
-        {
+        if ( exists $deps{$p} ) {
             my $cur_ver = $deps{$p};
 
             $deps{$p} = $v
-                if    defined($v)
-                  and not defined($cur_ver)
-                   or $AptPkg::Config::_config->system->versioning
-                      ->compare( $cur_ver, $v ) < 0;
-        }
-        else
-        {
+                if defined($v) and not defined($cur_ver)
+                    or $AptPkg::Config::_config->system->versioning->compare(
+                        $cur_ver, $v ) < 0;
+        }
+        else {
             $deps{$p} = $v;
         }
 
     }
 
-    return map( { name=>$_, version=>$deps{$_} }, sort( keys(%deps) ) );
+    return map( { name => $_, version => $deps{$_} }, sort( keys(%deps) ) );
 }
 
 sub extract_depends {
@@ -932,7 +927,9 @@
             . "Trying again with Module::Depends::Intrusive ... \n";
         warn '=' x 70, "\n";
 
-    eval { %dep_hash = run_depends( 'Module::Depends::Intrusive', $dir ); };
+        eval {
+            %dep_hash = run_depends( 'Module::Depends::Intrusive', $dir );
+        };
         if ($@) {
             warn '=' x 70, "\n";
             warn




More information about the Pkg-perl-cvs-commits mailing list