Fix spurious warnings in try thunks inside blocks

Fixes RT#131331: https://rt.perl.org/Ticket/Display.html?id=131331
Fixes RT#131123: https://rt.perl.org/Ticket/Display.html?id=131123

When we got a thunky `try` in a block, the QAST chain we make
contains `nqp::handle` op inside a QAST::Want, but ::Want doesn't
know how to propagate wantedness through handle ops. Fix by adding that.

src/Perl6/Actions.nqp

@@ -174,7 +174,7 @@ sub wanted($ast,$by) {
                     $node.annotate('past_block', WANTED($node.ann('past_block'), $byby));
                 }
             }
-            elsif $node.op eq 'call' {
+            elsif $node.op eq 'call' || $node.op eq 'handle' {
                 $ast[0] := WANTED($node,$byby);
             }
             elsif $node.op eq 'callstatic' || $node.op eq 'hllize' {

t/05-messages/10-warnings.t

@@ -2,7 +2,7 @@ use lib <t/packages/>;
 use Test;
 use Test::Helpers;
 
-plan 5;
+plan 6;
 
 subtest 'Supply.interval with negative value warns' => {
     plan 2;
@@ -71,4 +71,9 @@ is-run ｢
 is-run ｢my $a; $a [R~]= "b"; $a [Z~]= "b"; $a [X~]= "b"｣,
     'metaops + metaassign op do not produce spurious warnings';
 
+# RT # 131331
+# RT # 131123
+is-run ｢my $ = ^2 .grep: {try 1 after 0}; my $ = {try 5 == 5}()｣,
+    'no spurious warnings with `try` thunks in blocks';
+
 # vim: ft=perl6 expandtab sw=4