summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgs@consttype.org>2015-06-17 13:18:59 +0200
committerRafael Garcia-Suarez <rgs@consttype.org>2015-06-17 13:18:59 +0200
commitaa8f6cef961dc2009604f7464c66106421c3ae81 (patch)
tree6df83193e54ded391c0513ba4f2e35db6926c6d1
parentb4929cb48878718cd9a8f54a834db6353f8115ec (diff)
downloadperl-aa8f6cef961dc2009604f7464c66106421c3ae81.tar.gz
Microoptimize some matches in utf8_heavy.pl
-rw-r--r--lib/utf8_heavy.pl6
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl
index e0c3d5ed63..1ba73b2874 100644
--- a/lib/utf8_heavy.pl
+++ b/lib/utf8_heavy.pl
@@ -20,7 +20,7 @@ sub _loose_name ($) {
# out blanks, underscores and dashes. The complication stems from the
# grandfathered-in 'L_', which retains a single trailing underscore.
- my $loose = $_[0] =~ s/[-\s_]//rg;
+ (my $loose = $_[0]) =~ tr/-_ \t//d;
return $loose if $loose !~ / ^ (?: is | to )? l $/x;
return 'l_' if $_[0] =~ / l .* _ /x; # If original had a trailing '_'
@@ -226,7 +226,7 @@ sub _loose_name ($) {
# If the rhs looks like it is a number...
print STDERR __LINE__, ": table=$table\n" if DEBUG;
- if ($table =~ qr{ ^ [ \s 0-9 _ + / . -]+ $ }x) {
+ if ($table =~ m{ ^ [ \s 0-9 _ + / . -]+ $ }x) {
print STDERR __LINE__, ": table=$table\n" if DEBUG;
# Don't allow leading nor trailing slashes
@@ -236,7 +236,7 @@ sub _loose_name ($) {
}
# Split on slash, in case it is a rational, like \p{1/5}
- my @parts = split qr{ \s* / \s* }x, $table, -1;
+ my @parts = split m{ \s* / \s* }x, $table, -1;
print __LINE__, ": $type\n" if @parts > 2 && DEBUG;
# Can have maximum of one slash