diff options
author | Peter Karlsson <peterk> | 2002-06-25 00:28:57 +0000 |
---|---|---|
committer | Peter Karlsson <peterk> | 2002-06-25 00:28:57 +0000 |
commit | 9686d3f01a8d1db3a394f300c8a0e9893f5538d5 (patch) | |
tree | a405978e4f8c48ecb20976fe8ddee952260b4e85 /check_trans.pl | |
parent | 675b94c69e13afcee00a6a8c5144f140a62683ad (diff) |
Bugfix matching of exceptions listed in the global .transignore list; none of
them were evaluated properly due to an extra slash in the substitution regexp.
CVS version numbers
check_trans.pl: 1.51 -> 1.52
swedish/.transignore: 1.3 -> 1.4(DEAD)
Diffstat (limited to 'check_trans.pl')
-rwxr-xr-x | check_trans.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/check_trans.pl b/check_trans.pl index 6c366a81eff..4ab6fb8040d 100755 --- a/check_trans.pl +++ b/check_trans.pl @@ -437,7 +437,7 @@ sub check_file { $docname =~ s#^$langto/##; $docname =~ s#\.wml$##; unless (-r $name) { - (my $iname = $name) =~ s/^$to\///; + (my $iname = $name) =~ s/^$to//o; if (!$globtrans->is_global($iname)) { unless (($opt_q) || ($opt_Q)) { if ($opt_t eq 'perl') { |