Avoid negating an unsigned value. (The offset in the SV body table)
[p5sagit/p5-mst-13.2.git] / t / pod / included.t
1 BEGIN {
2    use File::Basename;
3    my $THISDIR = dirname $0;
4    unshift @INC, $THISDIR;
5    require "testp2pt.pl";
6    import TestPodIncPlainText;
7 }
8
9 my %options = map { $_ => 1 } @ARGV;  ## convert cmdline to options-hash
10 my $passed  = testpodplaintext \%options, $0;
11 exit( ($passed == 1) ? 0 : -1 )  unless $ENV{HARNESS_ACTIVE};
12
13
14 __END__
15
16
17 ##------------------------------------------------------------
18 # This file is =included by "include.t"
19 #
20 # This text should NOT be in the resultant pod document
21 # because we havent seen an =xxx pod directive in this file!
22 ##------------------------------------------------------------
23
24 =pod
25
26 This is the text of the included file named "included.t".
27 It should appear in the final pod document from pod2xxx
28
29 =cut
30
31 ##------------------------------------------------------------
32 # This text should NOT be in the resultant pod document
33 # because it is *after* an =cut an no other pod directives
34 # proceed it!
35 ##------------------------------------------------------------