Avoid negating an unsigned value. (The offset in the SV body table)
[p5sagit/p5-mst-13.2.git] / t / pod / include.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 =pod
18
19 This file tries to demonstrate a simple =include directive
20 for pods. It is used as follows:
21
22    =include filename
23
24 where "filename" is expected to be an absolute pathname, or else
25 reside be relative to the directory in which the current processed
26 podfile resides, or be relative to the current directory.
27
28 Lets try it out with the file "included.t" shall we.
29
30 ***THIS TEXT IS IMMEDIATELY BEFORE THE INCLUDE***
31
32 =include included.t
33
34 ***THIS TEXT IS IMMEDIATELY AFTER THE INCLUDE***
35
36 So how did we do???