This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove spurious double spaces before open braces in core C code
authorDagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Mon, 13 Apr 2020 20:32:41 +0000 (21:32 +0100)
committerDagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Mon, 13 Apr 2020 20:35:28 +0000 (21:35 +0100)
doio.c
op.h
regcomp.c
sv.c
toke.c
vms/vms.c
win32/win32.c

diff --git a/doio.c b/doio.c
index 9bbf2a4..23aedfb 100644 (file)
--- a/doio.c
+++ b/doio.c
@@ -774,7 +774,7 @@ Perl_do_open6(pTHX_ GV *gv, const char *oname, STRLEN len,
                        Perl_croak(aTHX_ "More than one argument to '>%c' open",IoTYPE_STD);
                    }
                }
-               else  {
+               else {
                    if (num_svs) {
                         fp = PerlIO_openn(aTHX_ type,mode,-1,0,0,NULL,num_svs,svp);
                     }
diff --git a/op.h b/op.h
index 2f2b8ca..e634eea 100644 (file)
--- a/op.h
+++ b/op.h
@@ -181,7 +181,7 @@ Deprecated.  Use C<GIMME_V> instead.
 
 
 /* things that can be elements of op_aux */
-typedef union  {
+typedef union {
     PADOFFSET pad_offset;
     SV        *sv;
     IV        iv;
index cbc4450..731063a 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -6928,7 +6928,7 @@ S_concat_pat(pTHX_ RExC_state_t * const pRExC_state,
                 pRExC_state->code_blocks->count -= n;
             n = 0;
         }
-        else  {
+        else {
             /* ... or failing that, try "" overload */
             while (SvAMAGIC(msv)
                     && (sv = AMG_CALLunary(msv, string_amg))
diff --git a/sv.c b/sv.c
index cb02219..7e82b84 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -2411,7 +2411,7 @@ S_sv_2iuv_common(pTHX_ SV *const sv)
            SvFLAGS(sv) &= ~(SVf_IOK|SVf_NOK);
        }
     }
-    else  {
+    else {
        if (isGV_with_GP(sv))
            return glob_2number(MUTABLE_GV(sv));
 
@@ -2806,7 +2806,7 @@ Perl_sv_2nv_flags(pTHX_ SV *const sv, const I32 flags)
            SvFLAGS(sv) &= ~(SVf_IOK|SVf_NOK);
 #endif /* NV_PRESERVES_UV */
     }
-    else  {
+    else {
        if (isGV_with_GP(sv)) {
            glob_2number(MUTABLE_GV(sv));
            return 0.0;
@@ -16582,7 +16582,7 @@ S_find_uninit_var(pTHX_ const OP *const obase, const SV *const uninit_sv,
                    negate ? - SvIV(cSVOPx_sv(kid)) : SvIV(cSVOPx_sv(kid)),
                    FUV_SUBSCRIPT_ARRAY);
        }
-       else  {
+       else {
            /* index is an expression;
             * attempt to find a match within the aggregate */
            if (obase->op_type == OP_HELEM) {
@@ -16794,7 +16794,7 @@ S_find_uninit_var(pTHX_ const OP *const obase, const SV *const uninit_sv,
                : varname(agg_gv, '@', agg_targ,
                                 NULL, index_const_iv, FUV_SUBSCRIPT_ARRAY);
        }
-       else  {
+       else {
            /* index is an var */
            if (is_hv) {
                SV * const keysv = find_hash_subscript((const HV*)sv, uninit_sv);
diff --git a/toke.c b/toke.c
index 953877e..f03c827 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -4259,7 +4259,7 @@ S_scan_const(pTHX_ char *start)
            } else if (PL_lex_inpat && SvIVX(PL_linestr) == '\'') {
                type = "q";
                typelen = 1;
-           } else  {
+           } else {
                type = "qq";
                typelen = 2;
            }
index 805c916..b31aa97 100644 (file)
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -3311,7 +3311,7 @@ pipe_tochild1_ast(pPipe p)
             p->shut_on_empty = TRUE;
             b->eof     = TRUE;
             _ckvmssts_noperl(sys$dassgn(p->chan_in));
-        } else  {
+        } else {
             _ckvmssts_noperl(iss);
         }
 
index 7f5482b..2a4ff39 100644 (file)
@@ -3913,7 +3913,7 @@ RETRY:
        w32_child_pids[w32_num_children] = (DWORD)ret;
        ++w32_num_children;
     }
-    else  {
+    else {
        DWORD status;
        win32_msgwait(aTHX_ 1, &ProcessInformation.hProcess, INFINITE, NULL);
        /* FIXME: if msgwait returned due to message perhaps forward the