From 9686d3f01a8d1db3a394f300c8a0e9893f5538d5 Mon Sep 17 00:00:00 2001
From: Peter Karlsson <peterk>
Date: Tue, 25 Jun 2002 00:28:57 +0000
Subject: 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)
---
 check_trans.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'check_trans.pl')

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') {
-- 
cgit v1.2.3