X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xt%2Fauthors.t;h=e5bc2cd9d5a67a513a0d9b48d793eeab54f5f266;hb=245e3f5d9725813b4c73a05b6162b0d93b335fd2;hp=48e693faeda91f8ea9a9617f8e5c1a66e7fe964c;hpb=5e61dd3c75c10d680847fa1d3e2603093ec66dbd;p=dbsrgits%2FDBIx-Class.git

diff --git a/xt/authors.t b/xt/authors.t
index 48e693f..e5bc2cd 100644
--- a/xt/authors.t
+++ b/xt/authors.t
@@ -38,27 +38,18 @@ is_deeply (
 
 my $email_re = qr/( \< [^\<\>]+ \> ) $/x;
 
-my (%known_authors, $count);
+my %known_authors;
 for (@known_authors) {
   my ($name_email) = m/ ^ (?: [^\:]+ \: \s )? (.+) /x;
   my ($email) = $name_email =~ $email_re;
 
-  if (
+  fail "Duplicate found: $name_email" if (
     $known_authors{$name_email}++
       or
     ( $email and $known_authors{$email}++ )
-  ) {
-    fail "Duplicate found: $name_email";
-  }
-  else {
-    $count++;
-  }
+  );
 }
 
-# do not announce anything under travis - we are watching for STDERR silence
-diag "\n\n$count contributors made this library what it is today\n\n"
-  unless ($ENV{TRAVIS}||'') eq 'true';
-
 # augh taint mode
 if (length $ENV{PATH}) {
   ( $ENV{PATH} ) = join ( $Config{path_sep},