Quick and simple fix to make Variable-Magic pass again under blead.

[perl/modules/Variable-Magic.git] / t / 18-opinfo.t

diff --git a/t/18-opinfo.t b/t/18-opinfo.t
index 0147a6c612715f80549ab44761a83a89cd55c99a..00133452d76d8acdb0ca8adcb2da5b833aaee0e3 100644 (file)
--- a/t/18-opinfo.t
+++ b/t/18-opinfo.t
@@ -39,13 +39,15 @@ 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]',  [ $aelemf,   $aelemf_op  ] ],
+ [ 'get', '$c[0]',   'my @c',    'my $x = $c[0]; 1',
+                                                   [ $aelem,    'B::OP'     ] ],
+ [ 'get', '$o[0]',   'local @o', 'my $x = $o[0]; 1',
+                                                   [ $aelemf,   $aelemf_op  ] ],
  [ 'get', '$x->{a}', 'my $x',    'my $y = $x->{a}{b}',
                                                    [ $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',     [ $assign_op, $assign_op_cl ] ],
+ [ 'get', '$c',    'my $c = 1',  'my $x = $c; 1',  [ $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'   ] ],