X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F18-opinfo.t;h=c9398cc38799e4946259ca330b101e9da9cb4a63;hb=8e2184e72b9ec7b9d7bddd4bf5be516f2b561db9;hp=c1d3961b3ce10bf466588b64db7bacc8452f0e0f;hpb=2975abf490c4cfe24e0230f1b050e4d95d3d9b25;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/t/18-opinfo.t b/t/18-opinfo.t
index c1d3961..c9398cc 100644
--- a/t/18-opinfo.t
+++ b/t/18-opinfo.t
@@ -11,15 +11,21 @@ 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 $is_5130_release = ($] == 5.013 && !$Config{git_describe}) ? 1 : 0;
+
+my $aelem     = $] <= 5.008003 ? 'aelem'
+                               : ($] < 5.013 or $is_5130_release) ? 'aelemfast'
+                                                                  : 'sassign';
+my $aelemf    = ($] < 5.013 or $is_5130_release) ? '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'  ] ],