diff options
author | ribet | 2007-06-13 18:53:03 +0000 |
---|---|---|
committer | ribet | 2007-06-13 18:53:03 +0000 |
commit | 80211308e4a34e5c29349725b2a4b14656d72f75 (patch) | |
tree | 081dadfe16563c08e8967357d7ccefbe3e9ac4c2 /doc/exemple_switch.pl | |
parent | c0dbd65a0c3e0b66d69b8fcc827f8380a7b35767 (diff) | |
download | mtc-80211308e4a34e5c29349725b2a4b14656d72f75.zip mtc-80211308e4a34e5c29349725b2a4b14656d72f75.tar.gz mtc-80211308e4a34e5c29349725b2a4b14656d72f75.tar.bz2 mtc-80211308e4a34e5c29349725b2a4b14656d72f75.tar.xz |
Adding 'use strict;'
Diffstat (limited to 'doc/exemple_switch.pl')
-rwxr-xr-x | doc/exemple_switch.pl | 3 |
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); |