summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/lang.pm6
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 91535a88c..f3bbba8b6 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -450,7 +450,11 @@ sub load_po {
} else {
$to = qq("$to");
}
- $s .= qq("$from" => $to,\n) if $from;
+ if ($from) {
+ $s .= qq("$from" => $to,\n);
+ } elsif ($to =~ /charset=([\w-]+)/) {
+ $lang::charset = $1;
+ }
$from = $to = '';
}
$to .= (/"(.*)"/)[0] if $state == 1;