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_groupe.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'doc/exemple_groupe.pl')

diff --git a/doc/exemple_groupe.pl b/doc/exemple_groupe.pl
index 8b70a05..58cbbfb 100755
--- a/doc/exemple_groupe.pl
+++ b/doc/exemple_groupe.pl
@@ -19,6 +19,8 @@ BEGIN {
 	unshift @INC, ".", "../src"; 
 }
 
+use strict;
+
 use Math::Trig;
 use MTools;
 use MTools::GUI::MRect;
@@ -29,7 +31,7 @@ new MTools (800, 600, "Exemple de groupe");
 my $group = new MTools::GUI::MGroup (1);
 my $contour = new MTools::GUI::MRect ($group, 400, 300, 200, 10);
 my $surface = new MTools::GUI::MRect ($group, 400, 400, 200, 20,
-				     -filled => 1, -fillcolor => red);
+				     -filled => 1, -fillcolor => "red");
 clone($group);
 $group->rotate(pi/4, 400, 300);
 
-- 
cgit v1.1