enable UTF-16 filter by default if relevant BOM is seen; various

cleanups (typos, misformatted code, and small bugs)

p4raw-id: //depot/perl@6399

1 files changed, 3 insertions, 1 deletions

diff --git a/op.c b/op.c
index f1fe50bc87..ec43ccef9c 100644
--- a/op.c
+++ b/op.c
@@ -2684,7 +2684,9 @@ Perl_pmtrans(pTHX_ OP *o, OP *expr, OP *repl)
 	if (!squash) {
 		if (t == r ||
 		    (tlen == rlen && memEQ((char *)t, (char *)r, tlen)))
+		{
 		    o->op_private |= OPpTRANS_IDENTICAL;
+		}
 	}
 
 	while (t < tend || tfirst <= tlast) {
@@ -4467,7 +4469,7 @@ Perl_newATTRSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
          * skipping the prototype check
          */
         if (exists || SvPOK(cv))
-            cv_ckproto(cv, gv, ps);
+	    cv_ckproto(cv, gv, ps);
 	/* already defined (or promised)? */
 	if (exists || GvASSUMECV(gv)) {
 	    SV* const_sv;