PL_FILES => {},
@DEFINES,
PREREQ_PM => \%PREREQ_PM,
- MIN_PERL_VERSION => 5.006,
+ MIN_PERL_VERSION => '5.006',
META_MERGE => \%META,
dist => {
PREOP => "pod2text -u $file > \$(DISTVNAME)/README",
SKIP:
{
skip 'Can\'t localize through a reference before 5.8.1' => 2
- if "$]" < 5.008001;
+ if "$]" < 5.008_001;
eval q{
no strict 'refs';
local ${''} = 9;
SKIP:
{
skip 'Can\'t localize through a reference before 5.8.1' => 2
- if "$]" < 5.008001;
+ if "$]" < 5.008_001;
eval q{
no strict 'refs';
local ${''} = 10;
SKIP:
{
skip '$NEGATIVE_INDICES has no special meaning on 5.8.0 and older' => 2
- if "$]" < 5.008001;
+ if "$]" < 5.008_001;
local $Scope::Upper::Test::TiedArray::NEGATIVE_INDICES = 1;
local @a;
tie @a, 'Scope::Upper::Test::TiedArray';
SKIP: {
skip "Causes failures during global destruction on perl 5.8.[0126]" => 5
- if ("$]" >= 5.008 and "$]" <= 5.008002) or "$]" == 5.008006;
+ if ("$]" >= 5.008 and "$]" <= 5.008_002) or "$]" == 5.008_006;
my $desc = 'exception with an eval and a local $@ in between';
local $hurp = 'durp';
local $@;
);
sub import {
- if ("$]" >= 5.010001) {
+ if ("$]" >= 5.010_001) {
push @blocks, [ 'given (1) {', '}' ];
require feature;
feature->import('switch');
skipall 'This perl wasn\'t built to support threads'
unless $Config{useithreads};
skipall 'perl 5.13.4 required to test thread safety'
- unless $force or "$]" >= 5.013004;
+ unless $force or "$]" >= 5.013_004;
my $t_v = $force ? '0' : '1.67';
my $has_threads = do {