Debian lenny version packages
[pkg-perl] / deb-src / libpod-simple-perl / libpod-simple-perl-3.07 / t / 20_skip.t
1 # 20 skip under 5.8
2 BEGIN {
3     if($ENV{PERL_CORE}) {
4         chdir 't';
5         @INC = '../lib';
6     }
7 }
8
9 print "1..2\n";
10   print "# Running under Perl v $]\n";
11 if($] < 5.008) {
12   print "ok 1 # Skip under Perl before 5.8 ($])\n";
13 } else {
14   print "ok 1\n";
15   print "# ^ not skipping\n";
16 }
17
18 print "ok 2\n";
19