From 5893c14e17f7731d77a4147e534c247d0989e7a1 Mon Sep 17 00:00:00 2001
From: saal
Date: Mon, 4 Jun 2007 13:11:32 +0000
Subject: suppression warning sur utilisation de fonction obsolete

---
 src/MTools.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/MTools.pm')

diff --git a/src/MTools.pm b/src/MTools.pm
index d47d81e..fb7ff74 100644
--- a/src/MTools.pm
+++ b/src/MTools.pm
@@ -239,7 +239,7 @@ sub mconfigure {
  	{
 	 	%zinc_props = %options;
  	}
- 	if (defined %zinc_props)
+ 	if (%zinc_props)
  	{
  		eval 
 		{
@@ -263,7 +263,7 @@ sub mconfigure {
 # d'un objets zinc.
 sub plink {
 	my (@objets) = @_;
-	if (!defined @objets) {return;}
+	if (! @objets) {return;}
 	
 	for (my $i = 0; $i < @objets; $i ++)
 	{
-- 
cgit v1.1