Front page | perl.perl5.porters |
Postings from October 2008
This is my first time submitting a patch. Hopefully I'm doing it the
way I should be.
The regcomp.c code failed to set a flag that it does in all other cases
when a character value is above 255.
--- regcomp.c.orig 2008-10-18 12:16:42.000000000 -0600
+++ regcomp.c 2008-10-24 10:22:24.000000000 -0600
@@ -7417,6 +7417,7 @@
I32 flags = 0;
STRLEN numlen = 3;
ender = grok_oct(p, &numlen, &flags, NULL);
+ if (ender > 0xff) RExC_utf8 = 1;
p += numlen;
}
else {
--- t/op/re_tests.orig 2008-09-22 14:42:42.000000000 -0600
+++ t/op/re_tests 2008-10-24 10:51:35.000000000 -0600
@@ -1357,3 +1357,8 @@
/^\s*i.*?o\s*$/s io\n io y - -
# As reported in #59168 by Father Chrysostomos:
/(.*?)a(?!(a+)b\2c)/ baaabaac y $&-$1 baa-ba
+
+# #59342
+/\377/ \377 y $& \377
+/\400/ \400 y $& \400
+/\777/ \777 y $& \777
Thread Next