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

#!./perl

BEGIN {
    chdir '..' unless -d 't';
    unshift @INC, 'lib';
}

use strict;
require 't/test.pl';

my $result = runperl(switches => ['-f', '-Ilib'], 
                     progfile => 'Porting/pod_rules.pl',
                     args     => ['--tap'],
                     nolib    => 1,
                     );

print $result;
Commit	Line	Data
d89d11bb TC	1	#!./perl
	2
	3	BEGIN {
	4	chdir '..' unless -d 't';
	5	unshift @INC, 'lib';
	6	}
	7
	8	use strict;
b8948979	9	require 't/test.pl';
d89d11bb	10
b8948979	11	my $result = runperl(switches => ['-f', '-Ilib'],
b78c1104	12	progfile => 'Porting/pod_rules.pl',
4fb2ab38 DD	13	args => ['--tap'],
	14	nolib => 1,
	15	);
b8948979 CB	16
b8948979 CB	17	print $result;