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>
Fri, 23 Dec 2011 03:03:55 +0000 (20:03 -0700)
committerKarl Williamson <public@khwilliamson.com>
Thu, 19 Jan 2012 18:58:17 +0000 (11:58 -0700)
regexec.c

index e57bb84..be0b390 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -3690,7 +3690,7 @@ S_regmatch(pTHX_ regmatch_info *reginfo, regnode *prog)
                char *e = PL_regeol;
 
                if (! foldEQ_utf8_flags(s, 0,  ln, cBOOL(UTF_PATTERN),
-                              l, &e, 0,  utf8_target, fold_utf8_flags))
+                                       l, &e, 0,  utf8_target, fold_utf8_flags))
                {
                    sayNO;
                }