25
25
while (m/_"([^"]+)"/g) { $msgid{$1}.=" $file:$."; }
26
26
while (m/_\("([^"]+)"\)/g) { $msgid{$1}.=" $file:$."; }
29
while (m/__\(\s*'([^']+)'\s*,\s*'([^']+)'\s*,/g) { my ($esc1,$esc2)=($1,$2); $esc1=~s/"/\\"/g for $esc1,$esc2; $msgid_p{$esc1}{$esc2}.=" $file:$."; }
30
30
while (m/__\(\s*"([^"]+)"\s*,\s*"([^"]+)"\s*,/g) { $msgid_p{$1}{$2}.=" $file:$."; }
31
while (m/__\(\s*'([^']+)'\s*,\s*"([^"]+)"\s*,/g) { my $esc=$1; $esc=~s/"/\\"/g; $msgid_p{$esc}{$2}.=" $file:$."; }
32
while (m/__\(\s*"([^"]+)"\s*,\s*'([^']+)'\s*,/g) { my $esc=$2; $esc=~s/"/\\"/g; $msgid_p{$1}{$esc}.=" $file:$."; }
34
34
if (m/^=gmbplugin \D\w+/)