diff options
-rwxr-xr-x | tools/genlang | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tools/genlang b/tools/genlang index 33adb2c7e3..6139bd1810 100755 --- a/tools/genlang +++ b/tools/genlang | |||
@@ -130,7 +130,7 @@ if(!$target && !$update && !$sortfile) { | |||
130 | # state machine, so we don't bother to check. | 130 | # state machine, so we don't bother to check. |
131 | my $target_regex = "(?:^|,) *(?:\\*"; | 131 | my $target_regex = "(?:^|,) *(?:\\*"; |
132 | foreach my $target_part (split ':', $target) { | 132 | foreach my $target_part (split ':', $target) { |
133 | for (my $c=1; $c<length $target_part; $c++) { | 133 | for (my $c=1; $c<=length $target_part; $c++) { |
134 | my $partial = substr $target_part, 0, $c; | 134 | my $partial = substr $target_part, 0, $c; |
135 | $target_regex .= "|$partial\\*"; | 135 | $target_regex .= "|$partial\\*"; |
136 | } | 136 | } |