In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/5c2c7b4d206b5e31daf31f52827808c61ff3ab10?hp=01b83a3095f97d49080e0ba2d2b1b890201e3dd1>
- Log ----------------------------------------------------------------- commit 5c2c7b4d206b5e31daf31f52827808c61ff3ab10 Author: Karl Williamson <[email protected]> Date: Tue Dec 31 08:42:27 2013 -0700 regexec.c: Remove redundant test A string must be in utf8 format if the first code point that came from it is above 255; therefore it is redundant to test for both. M regexec.c commit a9d7774b85068398f0b1989e5ae547ee5f4b4c4e Author: Martin McGrath <[email protected]> Date: Tue Dec 31 09:22:28 2013 -0700 PATCH [perl #120901] perlbug.PL - Add to user feedback/docs M utils/perlbug.PL ----------------------------------------------------------------------- Summary of changes: regexec.c | 2 +- utils/perlbug.PL | 15 ++++++++++++--- 2 files changed, 13 insertions(+), 4 deletions(-) diff --git a/regexec.c b/regexec.c index fdaa537..d0e0fd2 100644 --- a/regexec.c +++ b/regexec.c @@ -7511,7 +7511,7 @@ S_reginclass(pTHX_ regexp * const prog, const regnode * const n, const U8* const * positive that will be resolved when the match is done again as not part * of the synthetic start class */ if (!match) { - if (utf8_target && (flags & ANYOF_ABOVE_LATIN1_ALL) && c >= 256) { + if (c >= 256 && (flags & ANYOF_ABOVE_LATIN1_ALL)) { match = TRUE; /* Everything above 255 matches */ } else if (ANYOF_NONBITMAP(n) diff --git a/utils/perlbug.PL b/utils/perlbug.PL index e7f258e..5a553d3 100644 --- a/utils/perlbug.PL +++ b/utils/perlbug.PL @@ -121,6 +121,14 @@ if ($outfile) { } else { print "\nThank you for taking the time to file a bug report!\n\n"; } + + paraprint <<EOF +Please note that mailing lists are moderated, your message may take a while to +show up. If you do not receive an automated response acknowledging your message +within a few hours (check your SPAM folder and outgoing mail) please consider +sending an email directly from your mail client to perlbug\@perl.org or +perl-thanks\@perl.org respectively. +EOF } exit; @@ -1311,11 +1319,12 @@ a duplicate of an existing report, you may not receive a personal reply. If it is important to you that your bug be fixed, do monitor the [email protected] mailing list and the commit logs to development [email protected] mailing list (mailing lists are moderated, your +message may take a while to show up) and the commit logs to development versions of Perl, and encourage the maintainers with kind words or offers of frosty beverages. (Please do be kind to the maintainers. -Harassing or flaming them is likely to have the opposite effect of -the one you want.) +Harassing or flaming them is likely to have the opposite effect of the +one you want.) Feel free to update the ticket about your bug on http://rt.perl.org if a new version of Perl is released and your bug is still present. -- Perl5 Master Repository
