Prefer !UTF8_IS_INVARIANT() over UTF8_IS_CONTINUED() when that

is the sense of the test being done. Avoid some magical 127 and 128 values
by using macros.

p4raw-id: //depot/perlio@9199

1 files changed, 7 insertions, 1 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 93b89b14a7..f08f8bf988 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -551,7 +551,13 @@ PP(pp_formline)
 	    if (item_is_utf) {
 		while (arg--) {
 		    if (UTF8_IS_CONTINUED(*s)) {
-			switch (UTF8SKIP(s)) {
+			STRLEN skip = UTF8SKIP(s);
+			switch (skip) {
+			default:
+			    Move(s,t,skip,char);
+			    s += skip;
+			    t += skip;
+			    break;
 			case 7: *t++ = *s++;
 			case 6: *t++ = *s++;
 			case 5: *t++ = *s++;