diff options
| author | saal | 2007-06-04 13:11:32 +0000 |
|---|---|---|
| committer | saal | 2007-06-04 13:11:32 +0000 |
| commit | 5893c14e17f7731d77a4147e534c247d0989e7a1 (patch) | |
| tree | beff77514fe54e76527b76cebed69176299ab4a0 | |
| parent | 026e394a8e78c52c9c3319408f1b1b66e88a745b (diff) | |
| download | mtc-5893c14e17f7731d77a4147e534c247d0989e7a1.zip mtc-5893c14e17f7731d77a4147e534c247d0989e7a1.tar.gz mtc-5893c14e17f7731d77a4147e534c247d0989e7a1.tar.bz2 mtc-5893c14e17f7731d77a4147e534c247d0989e7a1.tar.xz | |
suppression warning sur utilisation de fonction obsolete
| -rw-r--r-- | src/MTools.pm | 4 |
1 files changed, 2 insertions, 2 deletions
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 ++) { |