Quoting Bjørn Steensrud ([email protected]): > > Package: dbconfig-common > Severity: wishlist > Tags: i10n, patch > > nb.po file is attached.
There is an error in a variable (detected by the attached script,
which is not mine but was written in the past by Denis Barbier):
--- nb.po 2009-02-07 08:12:14.072748000 +0100
+++ nb2.po 2009-02-07 08:12:10.732750246 +0100
@@ -896,7 +896,7 @@
"local user that does not exist."
msgstr ""
"Det ser dessverre ut til at den tilkoblingsmetoden til databasen som du har "
-"valgt for ${pkg] ikke vil virke, fordi det krever en lokal bruker som ikke "
+"valgt for ${pkg} ikke vil virke, fordi det krever en lokal bruker som ikke "
"finnes."
#. Type: boolean
Fixed file attached
nb.po
Description: application/gettext
#! /usr/bin/perl
sub getVars
{
my $text = shift;
my $var = '';
while ($text =~ m/\G.*?(\$\{[^{}]+\})/g) {
$var .= $1;
}
return $var;
}
$/ = "\n\n";
open (PO, "< $ARGV[0]") or die "Unable to open $ARGV[0]: $!\n";
while (<PO>)
{
s/"\n"//g;
(my $msgid) = m/^msgid "(.*)"$/m;
(my $msgstr) = m/^msgstr "(.*)"$/m;
next if $msgstr eq '' || m/^#, .*fuzzy/m;
my $var1 = getVars($msgid);
my $var2 = getVars($msgstr);
print if $var1 ne $var2;
}
close (PO);
signature.asc
Description: Digital signature
