Change 34768 by [EMAIL PROTECTED] 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.
