[libconfig-model-dpkg-perl] 20/24: dpkg::Dependency: removed async logger

[dod]

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 335fe89dbb31d96f82fc4e7c015aa4e6f1b3819a
Author: Dominique Dumont <d...@debian.org>
Date:   Fri Apr 18 20:00:27 2014 +0200

    dpkg::Dependency: removed async logger
---
 lib/Config/Model/Dpkg/Dependency.pm | 12 +-----------
 1 file changed, 1 insertion(+), 11 deletions(-)

diff --git a/lib/Config/Model/Dpkg/Dependency.pm 
b/lib/Config/Model/Dpkg/Dependency.pm
index c925b46..fef40f3 100644
--- a/lib/Config/Model/Dpkg/Dependency.pm
+++ b/lib/Config/Model/Dpkg/Dependency.pm
@@ -125,7 +125,6 @@ use vars qw/$test_filter/ ;
 $test_filter = ''; # reserved for tests
 
 my $logger = get_logger("Tree::Element::Value::Dependency") ;
-my $async_log = get_logger("Async::Value::Dependency") ;
 
 # initialise the global config object with the default values
 $_config->init;
@@ -275,7 +274,7 @@ sub check_dependency {
 
     my @dep_chain ;
     if (defined $value) {
-        $logger->debug("calling check_depend with Parse::RecDescent with 
'$value'");
+        $logger->debug("calling check_depend with Parse::RecDescent with 
'$value' fix is $apply_fix");
         my $ret = dep_parser->dependency ( $value ) ;
         my $ok = shift @$ret ;
         if ($ok) {
@@ -288,8 +287,6 @@ sub check_dependency {
 
     my $old = $value ;
 
-    $async_log->debug("begin for ",$self->composite_name, " fix is 
$apply_fix") if $async_log->is_debug;
-
     foreach my $dep (@dep_chain) {
         next unless ref($dep) ; # no need to check variables
         $self->check_or_fix_pkg_name($apply_fix, $dep, $old) ;
@@ -298,8 +295,6 @@ sub check_dependency {
     }
 
 
-    $async_log->debug("end for ",$self->composite_name) if 
$async_log->is_debug;
-
        $self->check_depend_chain($apply_fix, \@dep_chain, $old ) ;
 
     # "ideal" dependency is always computed, but it does not always change
@@ -307,9 +302,6 @@ sub check_dependency {
 
     if ( $logger->is_debug ) {
         my $new //= '<undef>';
-        $async_log->debug( "end for ",
-            $self->composite_name, " ($new) fix is $apply_fix" )
-          if $async_log->is_debug;
         no warnings 'uninitialized';
         $logger->debug( "'$old' done" . ( $apply_fix ? " changed to '$new'" : 
'' ) );
     }
@@ -416,7 +408,6 @@ sub check_depend_chain {
         return $ret ;
     }
 
-    $async_log->debug("begin check alternate deps for $actual_dep") ;
     foreach my $depend (@$input) {
         if (ref ($depend)) {
             # is a dependency (not a variable a la ${perl-Depends})
@@ -430,7 +421,6 @@ sub check_depend_chain {
             }
         }
     }
-    $async_log->debug("end check alternate deps for $actual_dep") ;
 
     if ($logger->is_debug and $apply_fix) {
         my $str = $self->struct_to_dep(@$input) ;

-- 
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