From: Vincent Pit Date: Tue, 18 May 2010 22:27:59 +0000 (+0200) Subject: Fix t/18-opinfo.t failures with perl 5.13 X-Git-Tag: v0.42~2 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=90ca07f2bcc731f8a3118fecdfffbd8975686eaa;p=perl%2Fmodules%2FVariable-Magic.git Fix t/18-opinfo.t failures with perl 5.13 --- diff --git a/t/18-opinfo.t b/t/18-opinfo.t index c1d3961..a67021e 100644 --- a/t/18-opinfo.t +++ b/t/18-opinfo.t @@ -11,15 +11,17 @@ use Variable::Magic qw/wizard cast dispell VMG_OP_INFO_NAME VMG_OP_INFO_OBJECT/; sub Variable::Magic::TestPkg::foo { } -my $aelem = $] <= 5.008003 ? 'aelem' : 'aelemfast'; -my $aelem_op = $Config{useithreads} ? 'B::PADOP' : 'B::SVOP'; +my $aelem = $] <= 5.008003 ? 'aelem' : $] < 5.013 ? 'aelemfast' : 'sassign'; +my $aelemf = $] < 5.013 ? 'aelemfast' : 'sassign'; +my $aelemf_op = $aelemf eq 'sassign' + ? 'B::BINOP' : $Config{useithreads} ? 'B::PADOP' : 'B::SVOP'; our @o; my @tests = ( [ 'len', '@c', 'my @c', 'my $x = @c', [ 'padav', 'B::OP' ] ], [ 'get', '$c[0]', 'my @c', 'my $x = $c[0]', [ $aelem, 'B::OP' ] ], - [ 'get', '$o[0]', 'local @o', 'my $x = $o[0]', [ 'aelemfast', $aelem_op ] ], + [ 'get', '$o[0]', 'local @o', 'my $x = $o[0]', [ $aelemf, $aelemf_op ] ], [ 'get', '$c', 'my $c = 1', '++$c', [ 'preinc', 'B::UNOP' ] ], [ 'get', '$c', 'my $c = 1', '$c ** 2', [ 'pow', 'B::BINOP' ] ], [ 'get', '$c', 'my $c = 1', 'my $x = $c', [ 'sassign', 'B::BINOP' ] ],