[perl5.git] / t / porting / authors.t

#!./perl -w

# Test that there are no missing authors in AUTHORS
BEGIN {
    chdir '..' unless -d 't';
    unshift @INC, 'lib';
}

use strict;
use warnings;

if (! -d '.git' ) {
    print "1..0 # SKIP: not being run from a git checkout\n";
    exit 0;
}

my $dotslash = $^O eq "MSWin32" ? ".\\" : "./";
system("git log --pretty=fuller | ${dotslash}perl -Ilib Porting/checkAUTHORS.pl --tap -");

# EOF
Commit	Line	Data
2218aaa9 JV	1	#!./perl -w
	2
	3	# Test that there are no missing authors in AUTHORS
	4	BEGIN {
	5	chdir '..' unless -d 't';
	6	unshift @INC, 'lib';
	7	}
	8
	9	use strict;
	10	use warnings;
	11
	12	if (! -d '.git' ) {
	13	print "1..0 # SKIP: not being run from a git checkout\n";
	14	exit 0;
	15	}
	16
38a188f0	17	my $dotslash = $^O eq "MSWin32" ? ".\\" : "./";
946fbe37	18	system("git log --pretty=fuller \| ${dotslash}perl -Ilib Porting/checkAUTHORS.pl --tap -");
2218aaa9 JV	19
2218aaa9 JV	20	# EOF