[libconfig-model-dpkg-perl] 20/24: dpkg::Dependency: removed async logger
dod at debian.org
dod at debian.org
Sun Apr 20 13:07:47 UTC 2014
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 <dod at 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
More information about the Pkg-perl-cvs-commits
mailing list