[perl.git] branch blead, updated. v5.27.0-259-g27a9d47db3

[Karl Williamson]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/27a9d47db34e17e486975d8e76184e7581c869e9?hp=08b6664b858b8fd4b5c0c27542763337b6d78e46>

- Log -----------------------------------------------------------------
commit 27a9d47db34e17e486975d8e76184e7581c869e9
Author: Karl Williamson <k...@cpan.org>
Date:   Wed Jun 7 15:40:33 2017 -0600

    doop.c: White-space only
    
    Outdent, since the previous commit removed an enclosing block
-----------------------------------------------------------------------

Summary of changes:
 doop.c | 60 ++++++++++++++++++++++++++++++------------------------------
 1 file changed, 30 insertions(+), 30 deletions(-)

diff --git a/doop.c b/doop.c
index dc6956ce04..bb679a8987 100644
--- a/doop.c
+++ b/doop.c
@@ -1138,37 +1138,37 @@ Perl_do_vop(pTHX_ I32 optype, SV *sv, SV *left, SV 
*right)
        len = remainder;
     }
 #endif
-       switch (optype) {
-       case OP_BIT_AND:
-           while (len--)
-               *dc++ = *lc++ & *rc++;
-           *dc = '\0';
-           break;
-       case OP_BIT_XOR:
-           while (len--)
-               *dc++ = *lc++ ^ *rc++;
-           goto mop_up;
-       case OP_BIT_OR:
-           while (len--)
-               *dc++ = *lc++ | *rc++;
-         mop_up:
-           len = lensave;
-           if (rightlen > len) {
-                if (dc == rc)
-                    SvCUR(sv) = rightlen;
-                else
-                    sv_catpvn_nomg(sv, rsave + len, rightlen - len);
-            }
-            else if (leftlen > len) {
-                if (dc == lc)
-                    SvCUR(sv) = leftlen;
-                else
-                    sv_catpvn_nomg(sv, lsave + len, leftlen - len);
-            }
-            *SvEND(sv) = '\0';
+    switch (optype) {
+    case OP_BIT_AND:
+        while (len--)
+            *dc++ = *lc++ & *rc++;
+        *dc = '\0';
+        break;
+    case OP_BIT_XOR:
+        while (len--)
+            *dc++ = *lc++ ^ *rc++;
+        goto mop_up;
+    case OP_BIT_OR:
+        while (len--)
+            *dc++ = *lc++ | *rc++;
+      mop_up:
+        len = lensave;
+        if (rightlen > len) {
+            if (dc == rc)
+                SvCUR(sv) = rightlen;
+            else
+                sv_catpvn_nomg(sv, rsave + len, rightlen - len);
+        }
+        else if (leftlen > len) {
+            if (dc == lc)
+                SvCUR(sv) = leftlen;
+            else
+                sv_catpvn_nomg(sv, lsave + len, leftlen - len);
+        }
+        *SvEND(sv) = '\0';
 
-           break;
-       }
+        break;
+    }
 
     if (result_needs_to_be_utf8) {
        sv_utf8_upgrade_nomg(sv);

--
Perl5 Master Repository