Correction d'un bug dans le plisten.

Un abonnement a un parametre identique n'appelle plus l'ensemble des callbacks

1 files changed, 5 insertions, 1 deletions

diff --git a/src/MTools.pm b/src/MTools.pm
index 914df7c..3dcf29a 100644
--- a/src/MTools.pm
+++ b/src/MTools.pm
@@ -185,8 +185,11 @@ sub __confproplink {
 	my ($sender, $obj, $key, $val) = @_;
 	
 	my $obj_instance = ref ($obj) eq '' ? $obj : $obj -> {instance};
+
 	if ($obj_instance ne $obj)
 	{
+	  $obj -> {__properties} -> {$key} -> {link_token} = -1 if (!defined $obj -> {__properties} -> {$key} -> {link_token});
+	  
 		if ($obj -> {__properties} -> {$key} -> {link_token} != $link_token)
 		{
 			$obj -> {__properties} -> {$key} -> {link_token} = $link_token;
@@ -349,7 +352,8 @@ sub plisten {
 		plink ([$obj, $key], [$obj -> {instance}, $key]);
 	}
 	push (@{$obj -> {__properties} -> {$key} -> {listeners}}, $methode);
-	mconfigure ($obj, $key => mget ($obj, $key));
+	#mconfigure ($obj, $key => mget ($obj, $key));
+	executer($methode,$obj, $key,mget ($obj, $key));
 	return $methode;
 }