Commit 3edd2e83 authored by Dietmar Maurer's avatar Dietmar Maurer

jessie: fix regex to extract po header

parent 1002c98c
...@@ -37,7 +37,7 @@ my $catalog; ...@@ -37,7 +37,7 @@ my $catalog;
my $charset; my $charset;
my $hpo = $href->{'""'} || die "no header"; my $hpo = $href->{'""'} || die "no header";
my $header = $hpo->dequote($hpo->msgstr); my $header = $hpo->dequote($hpo->msgstr);
if ($header =~ m|\\nContent-Type:\s+text/plain;\s+charset=(\S+)\\n|im) { if ($header =~ m|^Content-Type:\s+text/plain;\s+charset=(\S+)$|im) {
$charset = $1; $charset = $1;
} else { } else {
die "unable to get charset\n" if !$charset; die "unable to get charset\n" if !$charset;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment