This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regexp.h: Correct comment
authorFather Chrysostomos <sprout@cpan.org>
Sun, 23 Sep 2012 00:26:48 +0000 (17:26 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 23 Sep 2012 01:50:37 +0000 (18:50 -0700)
RXf_SKIPWHITE is for split " ", which is special, *not* for split / /.

regexp.h

index 1f27fd5..1fe4c3f 100644 (file)
--- a/regexp.h
+++ b/regexp.h
@@ -414,7 +414,7 @@ get_regex_charset_name(const U32 flags, STRLEN* const lenp)
 
 /* Flags indicating special patterns */
 #define RXf_START_ONLY         (1<<(RXf_BASE_SHIFT+19)) /* Pattern is /^/ */
-#define RXf_SKIPWHITE          (1<<(RXf_BASE_SHIFT+20)) /* Pattern is for a split / / */
+#define RXf_SKIPWHITE          (1<<(RXf_BASE_SHIFT+20)) /* Pattern is for a split " " */
 #define RXf_WHITE              (1<<(RXf_BASE_SHIFT+21)) /* Pattern is /\s+/ */
 #define RXf_NULL               (1U<<(RXf_BASE_SHIFT+22)) /* Pattern is // */
 #if RXf_BASE_SHIFT+22 > 31