This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pp_sys.c: White space only
authorKarl Williamson <khw@cpan.org>
Fri, 13 Jan 2017 04:05:35 +0000 (21:05 -0700)
committerKarl Williamson <khw@cpan.org>
Fri, 13 Jan 2017 18:44:35 +0000 (11:44 -0700)
Vertically align some components of an 'if' for readability.

pp_sys.c

index c0ef298..11193bc 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3598,14 +3598,14 @@ PP(pp_fttext)
         }
         else
 #endif
-        if (isPRINT_A(*s)
-                   /* VT occurs so rarely in text, that we consider it odd */
-                || (isSPACE_A(*s) && *s != VT_NATIVE)
+             if (  isPRINT_A(*s)
+                    /* VT occurs so rarely in text, that we consider it odd */
+                 || (isSPACE_A(*s) && *s != VT_NATIVE)
 
                     /* But there is a fair amount of backspaces and escapes in
                      * some text */
-                || *s == '\b'
-                || *s == ESC_NATIVE)
+                 || *s == '\b'
+                 || *s == ESC_NATIVE)
         {
             continue;
         }