1 files changed, 2 insertions, 1 deletions
diff --git a/doc/exemple_switch.pl b/doc/exemple_switch.pl
index bbc9b20..d40a732 100755
--- a/doc/exemple_switch.pl
+++ b/doc/exemple_switch.pl
@@ -19,6 +19,7 @@ BEGIN {
 	unshift @INC, ".", "../src"; 
 }
 
+use strict;
 use MTools;
 use MTools::MSwitch;
 use MTools::MTimer;
@@ -43,7 +44,7 @@ my $switch = new MTools::MSwitch(1,
 				 partiel => $mauve,
 				 anim => ["basique.svg#layer1", $mauve, $anim],
 				 complet => ["basique.svg#layer1", $mauve]);
-$switch->setState(partiel);
+$switch->setState("partiel");
 
 my @states = qw(vide partiel anim complet);
 my $timer = new MTools::MTimer(1000, 1, \&switch);