From e3945520da769f3ec0820d8c573cb0fd0dfff4e6 Mon Sep 17 00:00:00 2001
From: mertz
Date: Tue, 13 May 2003 08:01:47 +0000
Subject: If this module is read more than once, it does no bug anymore when
 creatin named gradient. This was the case for zinc-demos

---
 Perl/debug/LogoZinc.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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);
     }
   }
-- 
cgit v1.1