A small refactoring based on a comment in an old RT ticket (RT

#4362 in case you were wondering).

p4raw-id: //depot/perl@34768

diff --git a/toke.c b/toke.c
index f725efe..d8cd2e5 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -546,13 +546,7 @@ S_missingterm(pTHX_ char *s)
        if (nl)
            *nl = '\0';
     }
-    else if (
-#ifdef EBCDIC
-       iscntrl(PL_multi_close)
-#else
-       PL_multi_close < 32 || PL_multi_close == 127
-#endif
-       ) {
+    else if (isCNTRL(PL_multi_close)) {
        *tmpbuf = '^';
        tmpbuf[1] = (char)toCTRL(PL_multi_close);
        tmpbuf[2] = '\0';