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

Change 34768 by stevep@stevep-kirk on 2008/11/07 17:23:05

	A small refactoring based on a comment in an old RT ticket (RT
	#4362 in case you were wondering).

Affected files ...

... //depot/perl/toke.c#837 edit

Differences ...

==== //depot/perl/toke.c#837 (text) ====
Index: perl/toke.c
--- perl/toke.c#836~34705~	2008-11-03 08:25:42.000000000 -0800
+++ perl/toke.c	2008-11-07 09:23:05.000000000 -0800
@@ -546,13 +546,7 @@
 	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';
End of Patch.

• Change 34768: A small refactoring based on a comment in an old RT ticket (RT by Steve Peters