From 445a48295b03ef1a25c68ae9c00d0557d4370739 Mon Sep 17 00:00:00 2001 From: Frederic Lepied Date: Fri, 6 Feb 2004 09:55:12 +0000 Subject: don't put 4 " in section field --- translate_menu.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'translate_menu.pl') diff --git a/translate_menu.pl b/translate_menu.pl index b2cf6ae..c634e14 100755 --- a/translate_menu.pl +++ b/translate_menu.pl @@ -52,7 +52,7 @@ foreach my $file (@ARGV) { open ($FILE, ">$file"); for my $l (@lines) { chomp($l); - if (( $l =~ /(.*section=")([^"]+)("\s+.*)/ ) or ( $l =~ /(.*section=)([^"].+?)((\s|\\)+.*)/ )) { + if (( $l =~ /(.*section=)"([^"]+)"(\s+.*)/ ) or ( $l =~ /(.*section=)([^"].+?)((\s|\\)+.*)/ )) { my ($beg, $section, $end) = ($1, $2, $3); $section = translate($section); $l = "$beg\"$section\"$end"; -- cgit v1.2.1