This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regexec.c: White-space only
authorKarl Williamson <public@khwilliamson.com>
Tue, 21 Aug 2012 14:17:51 +0000 (08:17 -0600)
committerKarl Williamson <public@khwilliamson.com>
Sun, 26 Aug 2012 05:21:30 +0000 (23:21 -0600)
Indent inside newly formed block

regexec.c

index 27ad2d8..39bc226 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -3999,13 +3999,13 @@ S_regmatch(pTHX_ regmatch_info *reginfo, regnode *prog)
                     /* Match (prepend)*, but don't bother trying if empty (as
                      * being set to _undef indicates) */
                     if (PL_utf8_X_prepend != &PL_sv_undef) {
-                   while (locinput < PL_regeol
-                          && swash_fetch(PL_utf8_X_prepend,
-                                         (U8*)locinput, utf8_target))
-                    {
-                       previous_prepend = locinput;
-                       locinput += UTF8SKIP(locinput);
-                   }
+                        while (locinput < PL_regeol
+                               && swash_fetch(PL_utf8_X_prepend,
+                                              (U8*)locinput, utf8_target))
+                        {
+                            previous_prepend = locinput;
+                            locinput += UTF8SKIP(locinput);
+                        }
                     }
 
                    /* As noted above, if we matched a prepend character, but