diff options
| author | Yves Orton <demerphq@gmail.com> | 2022-10-31 13:47:43 +0100 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2022-11-01 11:57:31 +0100 |
| commit | e6421d31ff3b18d931e0da3152437c6f8d3f24a9 (patch) | |
| tree | 3f6caa6fba4c52912511f846debee6a1aaaafa82 /mg.c | |
| parent | fefcc043b6a92984b721aeb113c9251b5d87f34d (diff) | |
| download | perl-e6421d31ff3b18d931e0da3152437c6f8d3f24a9.tar.gz | |
mg.c/perl.c/scope.c - fixup mangled indentation and whitespace
Various code related to set_and_free_cop_warnings was terribly mangled
as far as whitespace goes. This patch cleans it up so it is readable and
correctly indented. Whitespace only changes.
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 27 |
1 files changed, 13 insertions, 14 deletions
@@ -3012,7 +3012,7 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) else if (strEQ(mg->mg_ptr+1, "ARNING_BITS")) { if ( ! (PL_dowarn & G_WARN_ALL_MASK)) { if (!SvPOK(sv)) { - free_and_set_cop_warnings(&PL_compiling, pWARN_STD); + free_and_set_cop_warnings(&PL_compiling, pWARN_STD); break; } { @@ -3024,23 +3024,22 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) not_all |= ptr[i] ^ 0x55; } if (!not_none) { - free_and_set_cop_warnings(&PL_compiling, pWARN_NONE); + free_and_set_cop_warnings(&PL_compiling, pWARN_NONE); } else if (len >= WARNsize && !not_all) { - free_and_set_cop_warnings(&PL_compiling, pWARN_ALL); - PL_dowarn |= G_WARN_ONCE ; - } - else { - STRLEN len; - const char *const p = SvPV_const(sv, len); + free_and_set_cop_warnings(&PL_compiling, pWARN_ALL); + PL_dowarn |= G_WARN_ONCE ; + } + else { + STRLEN len; + const char *const p = SvPV_const(sv, len); - PL_compiling.cop_warnings - = Perl_new_warnings_bitfield(aTHX_ PL_compiling.cop_warnings, - p, len); + PL_compiling.cop_warnings + = Perl_new_warnings_bitfield(aTHX_ PL_compiling.cop_warnings, + p, len); - if (isWARN_on(PL_compiling.cop_warnings, WARN_ONCE)) + if (isWARN_on(PL_compiling.cop_warnings, WARN_ONCE)) PL_dowarn |= G_WARN_ONCE ; - } - + } } } } |