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

#4362 in case you were wondering).

p4raw-id: //depot/perl@34768

1 files changed, 1 insertions, 7 deletions

diff --git a/toke.c b/toke.c
index f725efe777..d8cd2e5fae 100644
--- 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';