diff options
| author | Karl Williamson <public@khwilliamson.com> | 2013-02-17 14:17:27 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2013-02-17 16:13:11 -0700 |
| commit | 2783468b8bdcf1fde06ec21029ed81dac3b86812 (patch) | |
| tree | c0ae3c66ec06454d0209a3464f7627f56e2492d3 /lib/utf8_heavy.pl | |
| parent | a30d233f4135bbc792935f143a4828206d6f1379 (diff) | |
| download | perl-2783468b8bdcf1fde06ec21029ed81dac3b86812.tar.gz | |
utf8_heavy.pl: Add 'use re "/aa"'
This would speed up compilation and execution by a trivial amount, but
makes sure that no regular expression even tries to compile in Unicode,
which could cause recursive invocation of this. Before this construct
was invented, special care had to be taken to keep that from happening;
those measures remain in effect, but this gives added insurance.
Diffstat (limited to 'lib/utf8_heavy.pl')
| -rw-r--r-- | lib/utf8_heavy.pl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl index 23e06f9a9a..d7d4156f57 100644 --- a/lib/utf8_heavy.pl +++ b/lib/utf8_heavy.pl @@ -1,6 +1,8 @@ package utf8; use strict; use warnings; +use re "/aa"; # So we won't even try to look at above Latin1, potentially + # resulting in a recursive call sub DEBUG () { 0 } $|=1 if DEBUG; |