[SCM] Debian native package for Config::Model::Dpkg branch, master, updated. debian/2.035-10-g90516db

[Dominique Dumont]

The following commit has been merged in the master branch:
commit 17c0cf0a8f9521f12da51b7826dbb44ce018f61c
Author: Dominique Dumont <dod at debian.org>
Date:   Fri Apr 26 19:23:54 2013 +0200

    Dependency: improved traces and fixed small trace bug

diff --git a/lib/Config/Model/Dpkg/Dependency.pm b/lib/Config/Model/Dpkg/Dependency.pm
index 5f93e04..0540344 100644
--- a/lib/Config/Model/Dpkg/Dependency.pm
+++ b/lib/Config/Model/Dpkg/Dependency.pm
@@ -137,7 +137,8 @@ sub check_dependency {
     
     my $on_check_all_done = sub {
         if ($logger->is_debug) {
-            $async_log->debug("in check_dependency callback for ",$self->element_name);
+            $async_log->debug("in check_dependency callback for ",$self->composite_name)
+                if $async_log->is_debug;
             my $new = $value // '<undef>' ;
             $logger->debug("'$old' done".($apply_fix ? " changed to '$new'" : ''));
         }
@@ -153,7 +154,7 @@ sub check_dependency {
         $pending_check->send ;
     } ;
     
-    $async_log->debug("begin for ",$self->element_name) if $async_log->debug;
+    $async_log->debug("begin for ",$self->composite_name) if $async_log->is_debug;
     $pending_check->begin($on_check_all_done) ;
     
     if (defined $value) {
@@ -163,15 +164,15 @@ sub check_dependency {
 
     }
     
-    $async_log->debug("waiting end for ",$self->element_name) if $async_log->debug;
+    $async_log->debug("waiting end for ",$self->composite_name) if $async_log->is_debug;
     $pending_check->end; 
-    $async_log->debug("end for ",$self->element_name) if $async_log->debug;
+    $async_log->debug("end for ",$self->composite_name) if $async_log->is_debug;
     
-    $async_log->debug("waiting until all results for ",$self->element_name," are back")
-        if $async_log->debug;
+    $async_log->debug("waiting until all results for ",$self->composite_name," are back")
+        if $async_log->is_debug;
     $pending_check->recv; # block until all checks are done
-    $async_log->debug("all results for ",$self->element_name, " are back") 
-        if $async_log->debug;
+    $async_log->debug("all results for ",$self->composite_name, " are back")
+        if $async_log->is_debug;
 }
 
 sub check_debhelper {

-- 
Debian native package for Config::Model::Dpkg