diff options
| author | Matthew Somerville <matthew-github@dracos.co.uk> | 2018-01-09 11:03:20 +0000 |
|---|---|---|
| committer | Matthew Somerville <matthew-github@dracos.co.uk> | 2018-01-09 11:05:13 +0000 |
| commit | 072bc2a1ddc5ffd0d04001adf620b215f69e94fb (patch) | |
| tree | 37c3e9aba1c9b55369236dcd05504c4f7644c2cc /bin/gettext-nget-patch | |
| parent | 4e4ede7e48fb30429c8d9c3e5eb95e3480e451d7 (diff) | |
Catch nget() when written on a single line.
Diffstat (limited to 'bin/gettext-nget-patch')
| -rwxr-xr-x | bin/gettext-nget-patch | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/bin/gettext-nget-patch b/bin/gettext-nget-patch index 67f98e319..5d30cc922 100755 --- a/bin/gettext-nget-patch +++ b/bin/gettext-nget-patch @@ -15,9 +15,9 @@ find( sub { next unless /nget/; my $line = $.; my $text = $_; - do { + while ($text !~ /\)/) { $text .= <FP>; - } until $text =~ /\)/; + } if ($text =~ /nget\(\s*(['"])(.*?)\1\s*,\s*(['"])(.*?)\3\s*,\s*(.*?)\s*\)/s) { $out{$2} = { file => $File::Find::name, |