Medley of -Wall cleanups from Michael Schwen, Hugo van der Sanden,

and Abhijit Menon-Sen.

p4raw-id: //depot/perl@10321

1 files changed, 2 insertions, 1 deletions

diff --git a/doio.c b/doio.c
index 9c331f961f..e20245a6b2 100644
--- a/doio.c
+++ b/doio.c
@@ -232,7 +232,8 @@ Perl_do_openn(pTHX_ GV *gv, register char *name, I32 len, int as_raw,
 	    len  = tend-type;
 	}
 	IoTYPE(io) = *type;
-	if ((*type == IoTYPE_RDWR) && ((!num_svs || tend > type+1 && tend[-1] != IoTYPE_PIPE))) { /* scary */
+	if ((*type == IoTYPE_RDWR) && /* scary */
+	    ((!num_svs || (tend > type+1 && tend[-1] != IoTYPE_PIPE)))) {
 	    mode[1] = *type++;
 	    writing = 1;
 	}