e1e521d57233c7e63d309522ffcb1b5c1f102e1d
[perl.git] / t / porting / buildtoc.t
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" ? ".\\" : "./";
11 system("${dotslash}perl -f -Ilib -I../lib pod/buildtoc --build-toc -q --test");