integrate maint-5.005 changes into mainline

p4raw-id: //depot/perl@1760

1 files changed, 3 insertions, 5 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 26ec0f1f8f..467f268eef 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -522,15 +522,13 @@ PP(pp_formline)
 		break;
 	    }
 	    while (arg--) {
-#if 'z' - 'a' != 25
+#ifdef EBCDIC
 		int ch = *t++ = *s++;
-		if (!iscntrl(ch))
-		    t[-1] = ' ';
+		if (iscntrl(ch))
 #else
 		if ( !((*t++ = *s++) & ~31) )
-		    t[-1] = ' ';
 #endif
-
+		    t[-1] = ' ';
 	    }
 	    break;