aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Perl/debug/LogoZinc.pm2
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);
}
}