diff options
| -rw-r--r-- | perl-install/lang.pm | 6 |
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; |