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

[coke at svn.parrot.org]

Author: coke
Date: Mon Mar 15 13:21:38 2010
New Revision: 44934
URL: https://trac.parrot.org/parrot/changeset/44934

Log:
Skip bots; avoid repeating ourselves.

Modified:
   trunk/tools/dev/faces.pl

Modified: trunk/tools/dev/faces.pl
==============================================================================
--- trunk/tools/dev/faces.pl	Mon Mar 15 13:11:14 2010	(r44933)
+++ trunk/tools/dev/faces.pl	Mon Mar 15 13:21:38 2010	(r44934)
@@ -19,6 +19,8 @@
 while(<$fh>) {
     next unless /^E: (.*)/;
     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',
@@ -30,7 +32,7 @@
 foreach my $email (sort keys %urls) {
     print "[[Image($urls{$email},title=$email)]]\n";
 }
-print "''Generated by tools/dev/faces.pl''\n";
+print "[[BR]]''Generated by $0''\n";
 
 # Local Variables:
 #   mode: cperl