1 files changed, 3 insertions, 1 deletions
diff --git a/doc/exemple_circle.pl b/doc/exemple_circle.pl
index 290bec4..0e7bb2d 100755
--- a/doc/exemple_circle.pl
+++ b/doc/exemple_circle.pl
@@ -19,6 +19,8 @@ BEGIN {
 	unshift @INC, ".", "../src"; 
 }
 
+use strict;
+
 use MTools;
 use MTools::GUI::MCircle;
 
@@ -26,6 +28,6 @@ use MTools::GUI::MCircle;
 new MTools (800, 600, "Exemple de cercle");
 
 my $cercle = new MTools::GUI::MCircle (1, 400, 300, 200);
-my $disque = new MTools::GUI::MCircle (1, 400, 300, 200, -filled => 1, -fillcolor => red);
+my $disque = new MTools::GUI::MCircle (1, 400, 300, 200, -filled => 1, -fillcolor => "red");
 
 mrun;