blob: a9fdac3552a37ef17dbda8fee3752f32f9af009c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
# 20 skip under 5.8
use strict;
use warnings;
BEGIN {
if($ENV{PERL_CORE}) {
chdir 't';
@INC = '../lib';
}
}
print "1..2\n";
print "# Running under Perl v $]\n";
if($] < 5.008) {
print "ok 1 # Skip under Perl before 5.8 ($])\n";
} else {
print "ok 1\n";
print "# ^ not skipping\n";
}
print "ok 2\n";
|