This is an automated email from the git hooks/post-receive script.

dod pushed a commit to branch master
in repository libconfig-model-dpkg-perl.

commit 361fc80308cd3f52a1cf4229201057d942d2ca05
Author: Dominique Dumont <d...@debian.org>
Date:   Thu Apr 17 19:37:44 2014 +0200

    removed $on_perl_check_done from check_perl_lib_dep
---
 lib/Config/Model/Dpkg/Dependency.pm | 14 +++++---------
 1 file changed, 5 insertions(+), 9 deletions(-)

diff --git a/lib/Config/Model/Dpkg/Dependency.pm 
b/lib/Config/Model/Dpkg/Dependency.pm
index af05e4c..bec6725 100644
--- a/lib/Config/Model/Dpkg/Dependency.pm
+++ b/lib/Config/Model/Dpkg/Dependency.pm
@@ -468,18 +468,11 @@ sub check_perl_lib_dep {
     my @ideal_lib_dep ;
     my @ideal_dep_chain = (\@ideal_perl_dep);
 
-    my ($on_perl_check_done, $check_perl_lib, $get_perl_versions, 
$on_get_perl_versions) ;
+    my ($check_perl_lib, $get_perl_versions, $on_get_perl_versions) ;
 
     my ($v_normal) ;
 
 
-    $on_perl_check_done =  sub {
-        my $has_older_perl = shift ;
-        $async_log->debug("on_perl_check_done called") ;
-        push @ideal_perl_dep, '>=', $v_normal if $has_older_perl;
-        $check_perl_lib->($has_older_perl) ;
-    } ;
-
     $check_perl_lib = sub {
         my $has_older_perl = shift;
         $async_log->debug( "check_perl_lib called with dep_v " . ( $dep_v // 
'undef' ) );
@@ -579,8 +572,11 @@ sub check_perl_lib_dep {
                        my $dep_str = $dep_name . ( defined $check_v ? ' ' . 
$check_v : '' );
                        $logger->debug("dual life $dep_str aka 
$dep_name_as_perl[0] found in Perl core $v_normal");
                }
+
                my @res = $self->check_versioned_dep(  ['perl', '>=', 
$v_normal] );
-               $on_perl_check_done->(@res);
+        my $has_older_perl = $res[0] ;
+        push @ideal_perl_dep, '>=', $v_normal if $has_older_perl;
+        $check_perl_lib->($has_older_perl) ;
        }
 
     return $ret ;

-- 
Alioth's /usr/local/bin/git-commit-notice on 
/srv/git.debian.org/git/pkg-perl/packages/libconfig-model-dpkg-perl.git

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits

Reply via email to