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