From: Vincent Pit <vince@profvince.com>
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'  ] ],