From: Steve Peters <steve@fisharerojo.org>
Date: Fri, 7 Nov 2008 17:23:05 +0000 (+0000)
Subject: A small refactoring based on a comment in an old RT ticket (RT
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=463559e728b65f7b60e46efa081b43ff1b4b6fa4;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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';