diff options
author | Marius Halden <marius.h@lden.org> | 2017-05-28 21:31:42 +0200 |
---|---|---|
committer | Marius Halden <marius.h@lden.org> | 2017-05-28 21:31:42 +0200 |
commit | 987124b09a32248414faf4d0d6615d43b29ac6f6 (patch) | |
tree | a549db8af723c981d3b346e855f25d6fd5ff8aa7 /bin/gettext-nget-patch | |
parent | dbf56159e44c1560a413022451bf1a1c4cb22a52 (diff) | |
parent | a085b63ce09f87e83b75cda9b9cd08aadfe75d61 (diff) |
Merge tag 'v2.0.4' into fiksgatami-dev
Diffstat (limited to 'bin/gettext-nget-patch')
-rwxr-xr-x | bin/gettext-nget-patch | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/bin/gettext-nget-patch b/bin/gettext-nget-patch index 92b687552..67f98e319 100755 --- a/bin/gettext-nget-patch +++ b/bin/gettext-nget-patch @@ -18,19 +18,19 @@ find( sub { do { $text .= <FP>; } until $text =~ /\)/; - if ($text =~ /nget\(\s*"(.*?)"\s*,\s*"(.*?)"\s*,\s*(.*?)\s*\)/s) { - $out{$1} = { + if ($text =~ /nget\(\s*(['"])(.*?)\1\s*,\s*(['"])(.*?)\3\s*,\s*(.*?)\s*\)/s) { + $out{$2} = { file => $File::Find::name, line => $line, - s => $1, - p => $2, + s => $2, + p => $4, }; } } close FP; }, 'templates', 'perllib'); -foreach (values %out) { +foreach (sort { $a->{s} cmp $b->{s} } values %out) { print <<EOF; #: $_->{file}:$_->{line} |