[svn:parrot] r44935 - trunk/tools/dev

[coke at svn.parrot.org]

Author: coke
Date: Mon Mar 15 13:25:15 2010
New Revision: 44935
URL: https://trac.parrot.org/parrot/changeset/44935

Log:
warn about duplicated email addresses in CREDITS

Modified:
   trunk/tools/dev/faces.pl

Modified: trunk/tools/dev/faces.pl
==============================================================================
--- trunk/tools/dev/faces.pl	Mon Mar 15 13:21:38 2010	(r44934)
+++ trunk/tools/dev/faces.pl	Mon Mar 15 13:25:15 2010	(r44935)
@@ -21,12 +21,17 @@
     my $email = lc $1;
     next if $email eq 'svn at perl.org' or
             $email eq 'cvs at perl.org';
-    $urls{$email} = gravatar_url(
-        email   => $email,
-        rating  => 'r',
-        size    => 80,
-        default => 'wavatar',
-    );
+    if (!exists $urls{$email}) {
+        $urls{$email} = gravatar_url(
+            email   => $email,
+            rating  => 'r',
+            size    => 80,
+            default => 'wavatar',
+        );
+    }
+    else {
+        warn "duplicated email address in CREDITS: $email\n";
+    }
 }
 
 foreach my $email (sort keys %urls) {