diff options
author | Karl Williamson <public@khwilliamson.com> | 2011-01-04 16:56:55 -0700 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2011-01-04 17:04:38 -0700 |
commit | 1cba1759218c54622a21a05c66db2d7513da4f69 (patch) | |
tree | 2b5f1b43bbbffe718cf79228085381d17f2e8230 | |
parent | 5d7f77094c281a3d64f54de0749c36755f24f38a (diff) | |
download | perl-1cba1759218c54622a21a05c66db2d7513da4f69.tar.gz |
mktables: remove unneeded test
When I was originally writing this code, I thought it was faster to do
an extra substr to avoid a regex match. I have since found out that is
not true.
-rw-r--r-- | lib/unicore/mktables | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index 6e12d48cb4..081314d042 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -9346,7 +9346,6 @@ END # If the map begins with a special command to us (enclosed in # delimiters), extract the command(s). - if (substr($map, 0, 1) eq $CMD_DELIM) { while ($map =~ s/ ^ $CMD_DELIM (.*?) $CMD_DELIM //x) { my $command = $1; if ($command =~ / ^ $REPLACE_CMD= (.*) /x) { @@ -9360,7 +9359,6 @@ END next LINE; } } - } } if ($default_map eq $CODE_POINT && $map =~ / ^ $code_point_re $/x) |