diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/op/state.t | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/t/op/state.t b/t/op/state.t index 6d09813fe1..31347b1a69 100644 --- a/t/op/state.t +++ b/t/op/state.t @@ -105,7 +105,7 @@ is( gen_cashier()->{bal}->(), 42, '$42 in my drawer' ); # stateless assignment to a state variable sub stateless { - (state $reinitme) = 42; + (state $reinitme, my $foo) = (42, 'bar'); ++$reinitme; } is( stateless(), 43, 'stateless function, first time' ); @@ -151,7 +151,4 @@ sub statelist { my $ls = statelist(); is($ls, "12/23", 'list assignment to state scalars'); $ls = statelist(); -{ - local our $TODO = 'make aassign handle state vars'; - is($ls, "13/24", 'list assignment to state scalars'); -} +is($ls, "13/24", 'list assignment to state scalars'); |