|
Lines 23-29
Link Here
|
| 23 |
|
23 |
|
| 24 |
use strict; |
24 |
use strict; |
| 25 |
use JSON 2.53; |
25 |
use JSON 2.53; |
| 26 |
use Locale::PO 0.21; |
26 |
use Locale::PO 0.24; |
| 27 |
use File::Basename qw(basename); |
27 |
use File::Basename qw(basename); |
| 28 |
|
28 |
|
| 29 |
my $gettext_context_glue = "\004"; |
29 |
my $gettext_context_glue = "\004"; |
|
Lines 81-87
sub main
Link Here
|
| 81 |
my $qmsgstr = $po->msgstr; |
81 |
my $qmsgstr = $po->msgstr; |
| 82 |
my $cur = $po->dequote( $qmsgstr ); |
82 |
my $cur = $po->dequote( $qmsgstr ); |
| 83 |
my %cur; |
83 |
my %cur; |
| 84 |
foreach my $h (split(/\\n/, $cur)) |
84 |
foreach my $h (split(/\n/, $cur)) |
| 85 |
{ |
85 |
{ |
| 86 |
next unless length($h); |
86 |
next unless length($h); |
| 87 |
my @h = split(':', $h, 2); |
87 |
my @h = split(':', $h, 2); |
| 88 |
- |
|
|