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

#!./perl

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

use strict;

my $dotslash = $^O eq "MSWin32" ? ".\\" : "./";
system("${dotslash}perl -f -Ilib -I../lib pod/buildtoc --build-toc -q --test");
Commit	Line	Data
d89d11bb TC	1	#!./perl
	2
	3	BEGIN {
	4	chdir '..' unless -d 't';
	5	unshift @INC, 'lib';
	6	}
	7
	8	use strict;
	9
	10	my $dotslash = $^O eq "MSWin32" ? ".\\" : "./";
cff62b63	11	system("${dotslash}perl -f -Ilib -I../lib pod/buildtoc --build-toc -q --test");