From: Vincent Pit Date: Sat, 24 Aug 2013 17:44:26 +0000 (-0300) Subject: Replace uses of "$^V" by "$]" X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Nary.git;a=commitdiff_plain;h=26758ac5d60fd0f21965afdd3f47d3516bc3461d Replace uses of "$^V" by "$]" --- diff --git a/t/23-branch.t b/t/23-branch.t index e2638f7..ae04564 100644 --- a/t/23-branch.t +++ b/t/23-branch.t @@ -3,7 +3,7 @@ use strict; use warnings; -use Test::More tests => 21 + ($^V ge v5.10.0 ? 1 : 0); +use Test::More tests => 21 + ("$]" >= 5.010 ? 1 : 0); use Sub::Nary; @@ -86,7 +86,7 @@ my @tests = ( [ sub { $x or (3, 4) }, { 1 => 0.5, 2 => 0.5 } ], [ sub { $x && (3, 4) }, { 1 => 0.5, 2 => 0.5 } ], [ sub { $x and (3, 4) }, { 1 => 0.5, 2 => 0.5 } ], - (([ eval 'sub { $x // (3, 4) }', { 1 => 0.5, 2 => 0.5 } ]) x ($^V ge v5.10.0)), + (([ eval 'sub { $x // (3, 4) }', { 1 => 0.5, 2 => 0.5 } ]) x ("$]" >= 5.010)), ); my $i = 1;