From 80211308e4a34e5c29349725b2a4b14656d72f75 Mon Sep 17 00:00:00 2001
From: ribet
Date: Wed, 13 Jun 2007 18:53:03 +0000
Subject: Adding 'use strict;'

---
 doc/exemple_switch.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'doc/exemple_switch.pl')

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);
-- 
cgit v1.1