From d80b3772cbcc40cec91d4e07dd7cef8b36c67c6d Mon Sep 17 00:00:00 2001
From: Slaven Rezic <slaven@rezic.de>
Date: Sat, 20 Jan 2024 22:14:53 +0100
Subject: [PATCH] patch by davem for RT #151104
---
t/18-opinfo.t | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/t/18-opinfo.t b/t/18-opinfo.t
index 0147a6c..0013345 100644
--- 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' ] ],
--
2.11.0