This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Whitespace only: line breaks before elses.
authorJarkko Hietaniemi <jhi@iki.fi>
Thu, 14 Aug 2014 20:11:10 +0000 (16:11 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 15 Aug 2014 02:38:30 +0000 (22:38 -0400)
sv.c
toke.c

diff --git a/sv.c b/sv.c
index 7ba7a78..c6ba589 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -11462,7 +11462,8 @@ Perl_sv_vcatpvfn_flags(pTHX_ SV *const sv, const char *const pat, const STRLEN p
                             need += SvLEN(PL_numeric_radix_sv);
                         RESTORE_LC_NUMERIC();
 #endif
-                } else if (i > 0) {
+                }
+                else if (i > 0) {
                     need = BIT_DIGITS(i);
                 } /* if i < 0, the number of digits is hard to predict. */
            }
@@ -11834,7 +11835,8 @@ Perl_sv_vcatpvfn_flags(pTHX_ SV *const sv, const char *const pat, const STRLEN p
 
                     while (zerotail--)
                         *p++ = '0';
-                } else {
+                }
+                else {
                     *p++ = '0';
                     exponent = 0;
                 }
@@ -11848,7 +11850,8 @@ Perl_sv_vcatpvfn_flags(pTHX_ SV *const sv, const char *const pat, const STRLEN p
                     if (left) {
                         /* Pad the back with spaces. */
                         memset(PL_efloatbuf + elen, ' ', width - elen);
-                    } else if (fill == '0') {
+                    }
+                    else if (fill == '0') {
                         /* Insert the zeros between the "0x" and
                          * the digits, otherwise we end up with
                          * "0000xHHH..." */
@@ -11856,7 +11859,8 @@ Perl_sv_vcatpvfn_flags(pTHX_ SV *const sv, const char *const pat, const STRLEN p
                         char* zerox = PL_efloatbuf + 2;
                         Move(zerox, zerox + nzero,  elen - 2, char);
                         memset(zerox, fill, nzero);
-                    } else {
+                    }
+                    else {
                         /* Move it to the right. */
                         Move(PL_efloatbuf, PL_efloatbuf + width - elen,
                              elen, char);
diff --git a/toke.c b/toke.c
index 4620c10..09bd8c0 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -10065,7 +10065,8 @@ Perl_scan_num(pTHX_ const char *start, YYSTYPE* lvalp)
                                                    "Hexadecimal float: exponent underflow");
 #endif
                                     break;
-                                } else {
+                                }
+                                else {
 #ifdef NV_MAX_EXP
                                     if (!negexp &&
                                         hexfp_exp > NV_MAX_EXP - 1) {
@@ -10211,7 +10212,8 @@ Perl_scan_num(pTHX_ const char *start, YYSTYPE* lvalp)
             if ((*s == 'e' || *s == 'E')) {
                /* At least some Mach atof()s don't grok 'E' */
                 *d++ = 'e';
-            } else if (UNLIKELY(hexfp && (*s == 'p' || *s == 'P'))) {
+            }
+            else if (UNLIKELY(hexfp && (*s == 'p' || *s == 'P'))) {
                 *d++ = 'p';
             }