Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-04-30 07:39:42 +02:00
Code Issues Releases Wiki Activity

find-duplicates.pl handles multi-line msgids

Browse Source
This commit is contained in:
Paul Licameli 2020-05-20 08:52:06 -04:00
parent d8a096ba03
commit 77cce2e1eb
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
locale/find-duplicates.pl
View File

@ -9,7 +9,7 @@ my @sourcelines = ();
$\ = "\n"; $\ = "\n";
foreach my $line (<$fh>) { while (my $line =<$fh>) {
chop $line; chop $line;
my @tokens = split(/ /, $line, 2); my @tokens = split(/ /, $line, 2);
if ($tokens[0] eq "#:") { if ($tokens[0] eq "#:") {
@ -18,7 +18,12 @@ foreach my $line (<$fh>) {
elsif ($tokens[0] eq "msgid") { elsif ($tokens[0] eq "msgid") {
if( @sourcelines > 1) { if( @sourcelines > 1) {
print; print;
print $tokens[1]; my $string = $tokens[1];
do {
print $string;
$string = <$fh>;
chop $string;
} while $string =~ /^"/;
foreach my $sourceline (@sourcelines) { foreach my $sourceline (@sourcelines) {
print $sourceline; print $sourceline;
} }