skip certain test for rakudo release

S04-statements/for.t

@@ -463,13 +463,15 @@ eval-dies-ok('for(0..5) { }','keyword needs at least one whitespace after it');
 
 {
     is (for ^2 { 41; 42 }), (42,42), "for loop value is list of iter values";
+#?rakudo.jvm todo 'gives Any instead of ()'
     is (for ^5 { 41; next if $_ == 2; $_; }).flat, (0,1,3,4),
                 "for loop with value-less next flattens out nexted iterations";
 
 #?rakudo todo 'Rakudo still uses Nil here RT #124568'
     my $l = (for ^5 { 41; next if $_ == 2; $_; });
     is $l[2].perl, "()", "for loop iteration with value-less 'next' gives ()";
 
+#?rakudo.jvm todo 'gives "" instead of "0 1"'
     is (for ^5 { 41; last if $_ == 2; $_; }).flat, (0,1),
                 "for loop with value-less last flattens out last iteration";
 

S05-modifier/perl5_9.t

@@ -96,12 +96,16 @@ is(("foobarbar" ~~ rx:P5/^(?:f|o|b){3,4}(.+?)\1\z/ && $0), "bar", 're_tests 1340
 is(("foobarbar" ~~ rx:P5/^.{3,4}((?:b|a|r)+?)\1\z/ && $0), "bar", 're_tests 1342/1 (1560)');
 is(("foobarbar" ~~ rx:P5/^(?:f|o|b){3,4}((?:b|a|r)+?)\1\z/ && $0), "bar", 're_tests 1344/1 (1562)');
 is(("foobarbar" ~~ rx:P5/^.{2,3}?(.+)\1\z/ && $0), "bar", 're_tests 1346/1 (1564)');
+#?rakudo.jvm todo 'gives Nil instead of "bar"'
 is(("foobarbar" ~~ rx:P5/^(?:f|o|b){2,3}?(.+)\1\z/ && $0), "bar", 're_tests 1348/1 (1566)');
 is(("foobarbar" ~~ rx:P5/^.{2,3}?((?:b|a|r)+)\1\z/ && $0), "bar", 're_tests 1350/1 (1568)');
+#?rakudo.jvm todo 'gives Nil instead of "bar"'
 is(("foobarbar" ~~ rx:P5/^(?:f|o|b){2,3}?((?:b|a|r)+)\1\z/ && $0), "bar", 're_tests 1352/1 (1570)');
 is(("foobarbar" ~~ rx:P5/^.{2,3}?(.+?)\1\z/ && $0), "bar", 're_tests 1354/1 (1572)');
+#?rakudo.jvm todo 'gives Nil instead of "bar"'
 is(("foobarbar" ~~ rx:P5/^(?:f|o|b){2,3}?(.+?)\1\z/ && $0), "bar", 're_tests 1356/1 (1574)');
 is(("foobarbar" ~~ rx:P5/^.{2,3}?((?:b|a|r)+?)\1\z/ && $0), "bar", 're_tests 1358/1 (1576)');
+#?rakudo.jvm todo 'gives Nil instead of "bar"'
 is(("foobarbar" ~~ rx:P5/^(?:f|o|b){2,3}?((?:b|a|r)+?)\1\z/ && $0), "bar", 're_tests 1360/1 (1578)');
 ok((not ("......abef" ~~ rx:P5/.*a(?!(b|cd)*e).*f/)), 're_tests 1362  (1580)');