1#!./perl -w 2# Test that there are no missing authors in AUTHORS 3 4BEGIN { 5 @INC = '..' if -f '../TestInit.pm'; 6} 7use TestInit qw(T); # T is chdir to the top level 8use strict; 9 10require 't/test.pl'; 11find_git_or_skip('all'); 12 13# This is the subset of "pretty=fuller" that checkAUTHORS.pl actually needs: 14my $quote = $^O =~ /^mswin/i ? q(") : q('); 15system("git log --pretty=format:${quote}Author: %an <%ae>%n${quote} | $^X Porting/checkAUTHORS.pl --tap -"); 16 17# EOF 18