loop controls do not exit the REPL

RT#127631: https://rt.perl.org/Ticket/Display.html?id=127631

S19-command-line/repl.t

@@ -4,7 +4,7 @@ use lib <t/spec/packages>;
 use Test;
 use Test::Util;
 
-plan 11;
+plan 12;
 
 # Sanity check that the repl is working at all.
 my $cmd = $*DISTRO.is-win
@@ -114,3 +114,12 @@ is shell($cmd).exitcode, 42, 'exit(42) in executed REPL got run';
         :out({ not $^o.contains: '[Int][Int]' }),
     'no bizzare types returned from redeclared "returns an `of` Array" sub';
 }
+
+# RT #127631
+{
+
+    is_run_repl join("\n", |<last next redo>, 'say "rt127631-pass"', ''),
+        :err(''),
+        :out(/'rt127631-pass'/),
+    'loop controls do not exit the REPL';
+}