This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: White-space only
authorKarl Williamson <khw@cpan.org>
Mon, 16 Jun 2014 18:38:58 +0000 (12:38 -0600)
committerKarl Williamson <khw@cpan.org>
Mon, 16 Jun 2014 18:46:24 +0000 (12:46 -0600)
Indent because of newly-formed block

regcomp.c

index 57c5cbb..1a0024f 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -13635,13 +13635,13 @@ parseit:
                         if (curpkg && ! instr(name, "::")) {
                             char* pkgname = HvNAME(curpkg);
                             if (strNE(pkgname, "main")) {
-                            char* full_name = Perl_form(aTHX_
-                                                        "%s::%s",
-                                                        pkgname,
-                                                        name);
-                            n = strlen(full_name);
-                            Safefree(name);
-                            name = savepvn(full_name, n);
+                                char* full_name = Perl_form(aTHX_
+                                                            "%s::%s",
+                                                            pkgname,
+                                                            name);
+                                n = strlen(full_name);
+                                Safefree(name);
+                                name = savepvn(full_name, n);
                             }
                         }
                         Perl_sv_catpvf(aTHX_ listsv, "%cutf8::%"UTF8f"\n",