This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mg.c: White-space only
authorKarl Williamson <khw@cpan.org>
Wed, 19 Nov 2014 00:23:54 +0000 (17:23 -0700)
committerKarl Williamson <khw@cpan.org>
Fri, 21 Nov 2014 04:45:18 +0000 (21:45 -0700)
Indent due to new blocks from previous commit

mg.c

diff --git a/mg.c b/mg.c
index 27799ab..e9b61e8 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -2664,14 +2664,14 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg)
                     }
                 }
                 else { /* Use the regular global */
                     }
                 }
                 else { /* Use the regular global */
-           SvREFCNT_dec(PL_encoding);
-           if (SvOK(sv) || SvGMAGICAL(sv)) {
-               PL_encoding = newSVsv(sv);
-           }
-           else {
-               PL_encoding = NULL;
-           }
-            }
+                    SvREFCNT_dec(PL_encoding);
+                    if (SvOK(sv) || SvGMAGICAL(sv)) {
+                        PL_encoding = newSVsv(sv);
+                    }
+                    else {
+                        PL_encoding = NULL;
+                    }
+                }
             }
         }
        break;
             }
         }
        break;