diff options
Diffstat (limited to 'Perl/debug/LogoZinc.pm')
| -rw-r--r-- | Perl/debug/LogoZinc.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Perl/debug/LogoZinc.pm b/Perl/debug/LogoZinc.pm index f32fb6d..0b81b62 100644 --- a/Perl/debug/LogoZinc.pm +++ b/Perl/debug/LogoZinc.pm @@ -123,7 +123,7 @@ sub drawLogo { if ($builder{'-gradset'}) { while (my ($name, $gradiant) = each( %{$builder{'-gradset'}})) { # création des gradiants nommés - $zinc->gname($gradiant, $name); + $zinc->gname($gradiant, $name) unless $zinc->gname($name); push(@Gradiants, $name); } } |