use strict;
use warnings;
-use Test::More tests => 18 * (3 + 4) + 5 + 1;
+use Test::More tests => 19 * (3 + 4) + 5 + 1;
use Config qw<%Config>;
my $aelem = "$]" <= 5.008_003 ? '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';
+ : ("$]" < 5.037_003)
+ ? 'sassign'
+ : 'padsv_store';
+my $aelemf = ("$]" < 5.013 or $is_5130_release) ? 'aelemfast'
+ : ("$]" < 5.037_003) ? 'sassign'
+ : 'padsv_store';
+
+my $assign_op = ("$]" < 5.037_003) ? 'sassign': 'padsv_store';
+my $assign_op_cl = ("$]" < 5.037_003) ? 'B::BINOP': 'B::UNOP';
+
+my $aelemf_op = ($aelemf eq 'sassign') ? 'B::BINOP'
+ : ($aelemf eq 'padsv_store') ? 'B::UNOP'
+ : $Config{useithreads} ? 'B::PADOP' : 'B::SVOP';
my $meth_op = ("$]" < 5.021_005) ? 'B::SVOP' : 'B::METHOP';
+my $trutf_op = ($Config{useithreads} && "$]" >= 5.008_009)
+ ? 'B::PADOP' : 'B::SVOP';
my $deref = ("$]" < 5.021_007) ? 'helem' : 'multideref';
my $deref_op = ($deref eq 'multideref') ? 'B::UNOP_AUX' : 'B::UNOP';
[ $deref, $deref_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' ] ],
+ [ 'get', '$c', 'my $c = 1', 'my $x = $c', [ $assign_op, $assign_op_cl ] ],
[ 'get', '$c', 'my $c = 1', '1 if $c', [ 'and', 'B::LOGOP' ] ],
[ 'get', '$c', 'my $c = []', 'ref $c', [ 'ref', 'B::UNOP' ] ],
[ 'get', '$c', 'my $c = $0', '-f $c', [ 'ftfile', 'B::UNOP' ] ],
[ 'get', '$c', 'my $c = "Variable::Magic::TestPkg"',
'$c->foo()', [ 'method_named', $meth_op ] ],
[ 'get', '$c', 'my $c = ""', '$c =~ y/x/y/', [ 'trans', 'B::PVOP' ] ],
+ [ 'get', '$c', 'my $c = ""', '$c =~ y/\x{100}//',
+ [ 'trans', $trutf_op ] ],
[ 'get', '$c', 'my $c = 1', '1 for 1 .. $c',
[ 'enteriter', 'B::LOOP' ] ],
[ 'free','$c', 'my $c = 1', 'last', [ 'last', 'B::OP' ] ],