From c027f631d7abeac48b9a99b982a842d45d7749b1 Mon Sep 17 00:00:00 2001
From: saal
Date: Tue, 4 Sep 2007 10:09:33 +0000
Subject: correction d'un warning lors de l'utilisation de plisten

---
 src/MTools/MObjet.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/MTools/MObjet.pm')

diff --git a/src/MTools/MObjet.pm b/src/MTools/MObjet.pm
index ab015d5..46186d0 100644
--- a/src/MTools/MObjet.pm
+++ b/src/MTools/MObjet.pm
@@ -70,6 +70,7 @@ sub recordEvent {
 sub recordProperty {
 	my ($self, $prop, $val) = @_;
 	$self -> {__properties} -> {$prop} -> {val} = $val;
+	$self -> {__properties} -> {$prop} -> {link_token} = 0;
 }
 
 sub notify {
-- 
cgit v1.1