diff options
| author | Rafael Garcia-Suarez <rgs@consttype.org> | 2015-06-17 13:18:59 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2015-06-17 13:18:59 +0200 |
| commit | aa8f6cef961dc2009604f7464c66106421c3ae81 (patch) | |
| tree | 6df83193e54ded391c0513ba4f2e35db6926c6d1 | |
| parent | b4929cb48878718cd9a8f54a834db6353f8115ec (diff) | |
| download | perl-aa8f6cef961dc2009604f7464c66106421c3ae81.tar.gz | |
Microoptimize some matches in utf8_heavy.pl
| -rw-r--r-- | lib/utf8_heavy.pl | 6 |
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 |