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