[perl #132211] [BUG] combination of `andthen` and `orelse` causes closed over variable to never update

[via RT]

# New Ticket Created by  Zoffix Znet 
# Please include the string:  [perl #132211]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=132211 >


IRC: https://irclog.perlgeek.de/perl6/2017-10-03#i_15250878

Reads "aaa", not "abc":
  15:05         Zoffix  m: for <a b c> { $^v.uc andthen say $v orelse .say }
  15:05         camelia         rakudo-moar f946bd: OUTPUT: «a␤a␤a␤»
  
But this works fine:
  15:06                 m: for <a b c> { $^v.uc andthen say $v }
  15:06         camelia         rakudo-moar f946bd: OUTPUT: «a␤b␤c␤»